#!/usr/bin/perl

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

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

my $ssh = new Net::SSH::W32Perl($host,
              debug => 1);
$ssh->login($user, $pass);

my ($out, $err, $exit) = $ssh->cmd($cmd);
print $out;