use strict;
use Net::OpenSSH;
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 $ssh = Net::OpenSSH->new( $host, user=>$user, port=>$port, timeout=>30, key_path=>$key );
print "\ntest1\n";
#$sftp = Net::SFTP::Foreign->new($host, user=>$user, key_path=>$key, ssh_cmd=>);
$ssh->error and die "Can't ssh to $host: " . $ssh->error;
#$sftp->die_on_error("SSH connection failed"); 
print "\nok\n";