$SIG{__DIE__} = sub { warn shift and exit };

my $ftp = Net::FTP->new( ... ) or die $!;