[sjoh@nucleix method]$ perl ftp1.pl
Net::FTP>>> Net::FTP(2.75)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.26)
Net::FTP>>>   IO::Socket::INET(1.27)
Net::FTP>>>     IO::Socket(1.28)
Net::FTP>>>       IO::Handle(1.24)
Net::FTP=GLOB(0x9da13a0)<<< 220 (vsFTPd 2.0.5)
Net::FTP=GLOB(0x9da13a0)>>> user anonymous
Net::FTP=GLOB(0x9da13a0)<<< 331 Please specify the password.
Net::FTP=GLOB(0x9da13a0)>>> PASS ....
Net::FTP=GLOB(0x9da13a0)<<< 230 Login successful.
Net::FTP=GLOB(0x9da13a0)>>> CWD /pub/CPAN
Net::FTP=GLOB(0x9da13a0)<<< 250-The Comprehensive Perl Archive Network (http://www.cpan.org/)
Net::FTP=GLOB(0x9da13a0)<<< 250-master site has been from the very beginning (1995) hosted at FUNET,
Net::FTP=GLOB(0x9da13a0)<<< 250-the Finnish University NETwork.
Net::FTP=GLOB(0x9da13a0)<<< 250-
Net::FTP=GLOB(0x9da13a0)<<< 250-
Net::FTP=GLOB(0x9da13a0)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x9da13a0)>>> PASV
Net::FTP=GLOB(0x9da13a0)<<< 227 Entering Passive Mode (193,201,200,224,185,150)
Net::FTP=GLOB(0x9da13a0)>>> RETR README.html
Net::FTP=GLOB(0x9da13a0): Timeout at ftp1.pl 


##</code><code>##

my $ftp=Net::FTP->new("ftp.cpan.org", Firewall => "XXXX", Debug => 1)
ine 8