eval {
   $ftp = Net::FTP->new("mysys",Port => 9021,
                        Timeout => 20,   
                        Debug => 0)
      or die "Cannot create ftp object";
   
   $ftp->login("anonymous",'me@myself.com')
      or die "Cannot login";

   $ftp->put("$dir/$file1")
      or die "Cannot put";
   $ftp->put("$dir/$file2")
      or die "Cannot put";
   $ftp->put("$dir/$file3")
      or die "Cannot put";
   
   $ftp->quit;   
}

if( $@ ) {
   print "We had an issue: ", $@, "\n";
} else {
   print "A-Okay";
}