#!/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;