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보다 윗쪽에 위치해야 한다.
덧글