use strict;
use warnings;
use Net::SSH::W32Perl;

my $host = shift @ARGV;
my $user = shift @ARGV;
my $pass = shift @ARGV;
my $cmd = shift @ARGV;

my $ssh = Net::SSH::Perl->new($host, debug => 1, protocol => 2);
$ssh->login($user, $pass); my @sV= $ssh->cmd($cmd); .... ....
....
$ssh->close();

##</code><code>##

...
...
Computing shared secret key. 
Verifying server signature. 
Waiting for NEWKEYS message. 
Send NEWKEYS. 
Enabling encryption/MAC/compression. 
Sending request for user-authentication service. 
Service accepted: ssh-userauth. 
Trying empty user-authentication request. 
Trying password authentication. 
Authentication methods that can continue: publickey,gssapi-with-mic,pa +ssword. 
Next method to try is publickey. 
Next method to try is password. 
Permission denied at win32.pl line 11