#!/usr/bin/perl -w
 use Net::SSH::Perl;
    my $host="xxxx";
    my $pass="yyyy";
    my $user="zzzz";
    my $ssh = Net::SSH::Perl->new($host);
    $ssh->login($user, $pass);
    my($stdout, $stderr, $exit) = $ssh->cmd("ls -l");
    print "$stdout\n";