use Net::OpenSSH;

my $host ='host';
my $user = 'user';
my $password = 'passwd';

my $ssh = Net::OpenSSH->new(host => $host, user => $user, password => $password, ssh_cmd => '/usr/bin/ssh');
$ssh->error and die "SSH connection failed: " . $ssh->error;

my $rv = $ssh->system("ls -l");

print "$rv\n";