Select Code to Download

eval {
...
} else {
   print "A-Okay";
}

@files = qw( $file1 $file2 $file3 );

...
   $ftp->put( $_ )
     or die "Cannot put";
}