use strict;
use Net::SFTP::Foreign;
use Net::SSH2;
#$Net::SFTP::Foreign::debug = -1;
my $host = "127.0.0.1";
my $user = "Admin";
my $port = "22";
my $key_path = "C:/Users/BeckerB/Desktop/SDH1/applikation/Private.ppk";
my $publickey = "C:/Users/BeckerB/Desktop/SDH1/applikation/ssh/Private.ppk.pub";
my $ssh2 = Net::SSH2->new();
$ssh2->connect($host, 22) or die "Keine Verbindung";
$ssh2->auth_publickey($user, $publickey, $key_path) or die "Falscher Schlüssel";
my $sftp = Net::SFTP::Foreign->new(ssh2=> $ssh2, backend => 'Net_SSH2');
$sftp->error and die "Keine SFTP Verbindung möglich" . $sftp->error;
#my $sftp = Net::SFTP::Foreign->new( $host, username=>$user, publickey=>$publickey , port=>$port, privatekey=>$key_path, backend=>'Net_SSH2', timeout=>30, );
print "\ntest1\n";
#$sftp->die_on_error("SSH connection failed"); 
print "\nok\n";