my $ftp = Net::FTP->new( $firewall_host, Firewall => undef );

$ftp->login(
    "$ftp_user\@$ftp_host $proxy_user",
    $ftp_password,
    $proxy_password
);