#!/usr/bin/perl

use Net::SSH::Perl;
use strict;

my $host = "tic-rhel5-20-12";
my $user = "ssh root\@10.10.20.12";
my $passwd = "test";
my $cmd = "ls -l /root";

my $ssh = Net::SSH::Perl->new($host);
my $ssh->login($user,$passwd);
print "looking...";
my ($output, $error, $exit) = $ssh->cmd("$cmd");
print "Result:\n";
print $output;