my $ssh = new Net::SSH::Perl('host_name');
$ssh->login('user_name', 'user_pass');

my ($stdout, $stderr, $exit_code) = $ssh->cmd('ls -l');