Sorry, I am new at this:

#!/D:/perl/bin/-w
# a module making life easier

use Net::FTP;
use strict;
use warnings;
 require Net::FTP::A;
    my $file  = "ftptest.txt";
    my $host   = "somehost.com";
    my $login  = "me";
   my $passwd = "pass";
my $ftp = Net::FTP->new("somehost.com", Debug => 1);
     if ($ftp->login("me","pass"))
    {
        $ftp->cwd('OMS'); 
        #$ftp->pasv( $ftp );
        $ftp->I();
       $ftp->put( $file );
    }
    else
    {
        print "        Sending file to FTP Server ... Failed!\n";
    
    }
 
    print "        Sending file to FTP Server ... ";
  
if ($ftp->put($file))
    {
        print "Complete!\n";
    }
    else
    {
        print "Failed!\n";
        $ftp->quit;

    }
 
    $ftp->quit;</P>
[download]

Edited: ~Mon Aug 19 18:16:20 2002 (GMT) by footpad: Added <CODE> and other HTML formatting tags, per Consideration.