Select Code to Download

eval {
 my $ftp = Net::FTP->new(...)
   or die "Can't connect: $@\n";
...
 ...
};
warn $@ if $@;  # or whatever