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