my $ssh = Net::SSH::Perl->new("host1", protocol=>2, debug=>1);
    $ssh->login("user1", "pass1");

    ($out, $err, $exit) = $ssh->cmd("hostname");
    print "Out: $out$/Err: $err$/Exit: $exit$/";