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