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