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