Raj, Check out the Net::FTP documentation. Most ftp methods return undef on failure. So check after each operation. Wraping in eval will also help.

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";
}
[download]

I don't see an mput type method, but it should be real trivial to code:

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

foreach( @files ) {
   $ftp->put( $_ )
     or die "Cannot put";
}
[download]

-derby