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.

Check out the Beginners guide to Net::FTP. You should be checking the return values as already mentioned, and displaying the correct error messages (well, maybe you don't need that in debug mode, but derby has them wrong further down in this thread). And I really don't think you need the explicit require of Net::FTP::A.