my $proxy = Net::Proxy->new (
  in  => { type => 'tcp', port => '6789' },
  out => {
    type => 'tcp', host => 'XXX.XXX.XXX.XXX', port => '22',
    proxy_host => 'YYY.YYY.YYY.YYY', proxy_port => '8080',
  },
};
$proxy->register();
$proxy_>meinloop();

# hier bleibt das Skript stehen

my $sftp = Net::SFTP::Forgeign->new($host, %login_param);
if($sftp->error) {
  die "keine verbindung\n";
}
if (!defined($sftp)) {
  die "Probleme beim verbinden\n";
} else {
  print "alles ok, Verbindung hergestellt\n" if(defined($verbose));
}