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

$ftp->put("$dir/$file1");
$ftp->put("$dir/$file2");
$ftp->put("$dir/$file3");

$ftp->quit;