use Net::SSH::Perl;
$scon = Net::SSH::Perl->new ("xx.xxx.xx.xx", port=>80);
#$scon->login("username","password");
my($stdout, $stderr, $exit) = $ssh->cmd("foo");
$ssh->close;