die 발생 시 변수로 저장하기(perl)

use strict;

use Net::FTP;

my $host = "192.169.0.1";

my $user = "test";

my $passwd  = "test";

$SIG{__DIE__} = sub {

    prnt "Can't open $host\n";

}

my $f = Net::FTP->new($host) or die "Can't open $host\n";

$SIG{__DIE__} = sub {

    "Can't login $user\n";

}

$f->login($user, $passwd) or die "Can't login $user\n";

__DIE__는 die발생 시 호출된다. 반드시 die보다 윗쪽에 위치해야 한다.