#!/usr/bin/perl -w
use strict;
use Net::SSH::Perl;

$ENV{HOME} = "C:";

my $host = "192.168.32.138";
my $user = "root";
my $passwd = "101010";
my %params = (
                protocal => '2,1',
                # debug => '1'
            );

my $ssh = Net::SSH::Perl->new($host,%params);
$ssh->login($user,$passwd);

my ($stdout, $stderr, $exit) = $ssh->cmd("ls /home");
print "$stdout";