require 'inc.pl';
use strict;
use warnings;
use Net::SSH::W32Perl;

my $host = 'i3747';
my $ssh = Net::SSH::W32Perl->new($host, protocol    => '2',interactive => 1,

                                        debug       => 1        );

my $user = 'srini';
my $pass = 'xxxxx';
print "val".$ssh."\n";
$ssh->login($user, $pass);

my $cmd = "pwd";
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);

print $stdout;
print $stderr;
print $exit

##</code><code>##

MASRINIVAS2L: Authentication methods that can continue: gssapi-keyex,gssapi-wi
-mic,publickey,keyboard-interactive.
MASRINIVAS2L: Next method to try is publickey.
MASRINIVAS2L: Next method to try is keyboard-interactive.
Received disconnect message: Too many authentication failures for spg
 at D:/Dwimperl/perl/site/lib/Net/SSH/Perl/AuthMgr.pm line 143