-derby

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.

#!/usr/bin/perl -wd

use strict;
use warnings;
use Net::FTP;

my $file  = "ftp.pl";
my $host = "some_host";
my $user = "a_user";
my $pass = "the_pass";
my $ftp  = Net::FTP->new( $host ) or die "Could not open $host\n";

$ftp->login( $user, $pass ) or die "Could not login\n";
$ftp->put( $file ) or die "Could not put $file\n";
$ftp->quit();
[download]

-derby

update: Updated the error messages (thanks runrig and see Beginners guide to Net::FTP).

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

Why isn't your print in the first else clause a die?

Why 2 calls to $ftp->quit()?

Why the "require" of Net::FTP::A? You don't need that, at least, not for this snippet.

Apart from the questions, did you notice that your call to pasv is commeted out? That could cause you some problems, maybe even the exact problem you mention.
--
Mike