my $ftp;
if ($ftp = Net::FTP->new("ftpgateway.mycompany.com",
           Debug => '1',
           Passive => '0')) {
   print "Connected.\n";
} else {
   print "Couldn't connect.\n";
   exit;
}
if ($ftp->login("ftpgateway_username", "ftpgateway_password")) {
   print "Login sucessful\n";
} else {
   print "Login failed.\n";
   exit;
}
if ($ftp->site("www.destination.com")) {
   print "opened www.destination.com.\n";
} else {
   print "Couldn't open destination.com.\n";
   exit;
}
if ($ftp->quot("user destination_username destination_password")) {
   print "Logged into desination.com.\n";
} else {
   print "Couldn't log into destination.com.\n";
   exit;
}
if ($ftp->put("file1.txt")) {
   print "Put file1.txt\n";
} else {
   print "Couldn't put file1.txt.\n";
   exit;
}