use Net::SSH::W32Perl;

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

##</code><code>##

Nalina: Reading configuration data /.ssh/config
Nalina: Reading configuration data /etc/ssh_config
Nalina: Connecting to xxx.xxx.xxx.xxx, port 22.
Nalina: Socket created, turning on blocking...
Nalina: Remote protocol version 1.5, remote software version Cisco-1.25
Protocol major versions differ: 2 vs. 1 at cisco_ssh.pl line 4