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

##</code><code>##

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(0x941b400): Timeout at ftp1.pl line 4
Couldnt connect: