use strict;
use Net::SFTP::Foreign;
use Net::SSH2;
my $ssh2 = Net::SSH2->new();
my $host = "127.0.0.1";
my $user = "Admin";
my $port = "22";
#my $timeout = "5";
my $key = "C:/Users/BeckerB/Desktop/SFTP Schluessel/Private.ppk";
#$ssh_cmd = "C:/Users/BeckerB/Desktop/SDH1/applikation/model/modules/Net/OpenSSH.pm"; 
print $key;
my $sftp = Net::SFTP::Foreign->new( $host, user=>$user, port=>$port, backend=>'Net_SSH2', timeout=>30, key_path=>$key );
print "\ntest1\n";
#$sftp = Net::SFTP::Foreign->new($host, user=>$user, key_path=>$key, ssh_cmd=>);
$sftp->die_on_error("SSH connection failed"); 
print "\nok\n";