use Net::SSH::W32Perl;

 my $host = 'xxx.xxx.xxx.xxx';
 my $ssh = new Net::SSH::W32Perl($host,debug=>1);
 $ssh->login('user-id', 'passw');