use Net::SSH::W32Perl;

my $ssh = Net::SSH::W32Perl->new("XXXXXX", protocol=>2, debug=>1);
    $ssh->login("XXXXX", "XXXXXX");

    ($out, $err, $exit) = $ssh->cmd("hostname");
    print "Out: $out$/Err: $err$/Exit: $exit$/";