use Net::SSH::Any;

$ssh = Net::SSH::Any->new($hostname, user => $username, password => $password);
$out = $ssh->capture(“who am I”);
print $out;