Problem with Net::FTP

From: Mark (mark.witczak_at_lmco.com)
Date: 07/21/04 

Date: 21 Jul 2004 11:40:32 -0700

I recently installed the latest version of libnet (libnet-1.19) in one
of my local directories. An error is returned that states: Can't
locate object method "new" via package "Net::FTP::I" at
/usr/share/lib/perl5/irix-n32/5.00405/IO/Socket.pm line 253.

I.pm was installed in the local directory
/usr2/people/witczak/WORK/myPerl/Modules/lib/perl5/site_perl/Net/FTP/
so why can't perl find it???

When I execute my ftp test script with debug mode on, the following is
displayed (without the ip address):

This is what @INC contains:
        /usr2/people/witczak/WORK/myPerl/Modules/lib/perl5/site_perl/irix-n32
        /usr2/people/witczak/WORK/myPerl/Modules/lib/perl5/site_perl
        /usr/share/lib/perl5/irix-n32/5.00405
        /usr/share/lib/perl5
        /usr/share/lib/perl5/site_perl/irix-n32
        /usr/share/lib/perl5/site_perl
        /usr/share/lib/perl5/sgi_perl
        .

Net::FTP>>> Net::FTP(2.75)
Net::FTP>>> Exporter
Net::FTP>>> Net::Cmd(2.26)
Net::FTP>>> IO::Socket::INET
Net::FTP>>> IO::Socket(1.1603)
Net::FTP>>> IO::Handle(1.1504)
Net::FTP=GLOB(0x100145e8)<<< 220 hilton FTP server ready.
Net::FTP=GLOB(0x100145e8)>>> user mwitczak
Net::FTP=GLOB(0x100145e8)<<< 331 Password required for mwitczak.
Net::FTP=GLOB(0x100145e8)>>> PASS ....
Net::FTP=GLOB(0x100145e8)<<< 230 User mwitczak logged in.
Net::FTP=GLOB(0x100145e8)>>> CWD /studies/temp
Net::FTP=GLOB(0x100145e8)<<< 250 CWD command successful.
Net::FTP=GLOB(0x100145e8)>>> TYPE I
Net::FTP=GLOB(0x100145e8)<<< 200 Type set to I.
Net::FTP=GLOB(0x100145e8)>>> PORT xxx,xxx,xxx,xxx,x,xxx
Net::FTP=GLOB(0x100145e8)<<< 200 PORT command successful.
Net::FTP=GLOB(0x100145e8)>>> RETR foo.dat
Net::FTP=GLOB(0x100145e8)<<< 150 Opening BINARY mode data connection
for 'foo.dat' (8 bytes).
Can't locate object method "new" via package "Net::FTP::I" at
/usr/share/lib/perl5/irix-n32/5.00405/IO/Socket.pm line 253.
Attempt to free unreferenced scalar during global destruction.

The script that generates the error is below (without host and pw):

#!/usr/sbin/perl

use lib '/usr2/people/witczak/WORK/myPerl/Modules/lib/perl5/site_perl';
use Net::FTP;

print "This is what \@INC contains:\n";
foreach $item (@INC) {
  print "\t$item\n";
}
print "\n\n";

$hostname = 'xxxxxx';
$userid = 'mwitczak';
$password = 'xxxxxxx';

$remoteDir = '/studies/temp';
$filename = 'foo.dat';

$ftp = Net::FTP->new($hostname,Debug=>1);
$ftp->login($userid,$password);
$ftp->cwd($remoteDir);
$ftp->binary;
$ftp->get($filename);
$ftp->quit;