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