my $ssh = Net::SSH::W32Perl->new($host, protocol=>2, debug =>1);