use Net::SSH::Any;

$instance = "myserver.mydomain";
$path = "C:\\Temp\\PrivateKey_openssh.ppk";

$ssh = Net::SSH::Any->new($instance, user => "mydomain\\mylogin", key_path => $path);
$ssh->error and die $ssh->error;
print "SSH connection accepted\n\n";