use strict;

my $host = 'myhost';
my $user = 'user';
my $pass = 'password';
my $cmd = 'ls';

use Net::SSH::W32Perl;

my ($ssh, $out, $err, $exit);

my %args;
$args{debug} = 1;
$args{protocol} = 2;

$ssh = new Net::SSH::W32Perl($host, %args);
$ssh->login($user, $pass);

($out, $err, $exit) = $ssh->cmd("ls");

print "OUT: [$out]\n";
print "ERR: [$err]\n";
print "EXIT: [$exit]\n";