use strict;
use warnings;

use Net::SSH::W32Perl;
$ENV{HOME} = 'C:\shaw\ssh';

my $host = 'super.cool.server';
my $ssh = Net::SSH::W32Perl->new($host, protocol    => '2',
                                        debug       => 1        );

my $user = 'supercooluser';
my $pass = 'supercoolpass';
$ssh->login($user, $pass);

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

print $stdout;
print $stderr;
print $exit;