#!/usr/bin/perl
use Net::SSH::W32Perl;
  
 $ENV{HOME} = "C:\\";
 my $host = '10.167.14.126';
 my $ssh = new Net::SSH::W32Perl($host,debug=>1);
 $ssh->login('xxx', 'xxx');
 my $out = $ssh->cmd('ll');
 print $out;