my $ftp = Net::FTP->new('xxxxx.xxxxxxxxx.com', Firewall => 'ftp.glb.xxxxxxx.net', FirewallType => 7, Debug => 1 );