Net::SSH::Any builds on top of Net::SSH2 and is quite easier to use:

my $ssh = Net::SSH::Any->new($host, user => $user, password => $pass, 
+backends => 'Net::SSH2');

my $output = $ssh->capture("ls");
print "output:\n$output";
[download]