use Net::SSH::Perl;

$ssh = Net::SSH::Perl->new('localhost', debug=>1);

$ssh->login() or die "login fail!\n";

($i,$j,$k) = $ssh->cmd('ls | wc -l');

print "$i\n";