#!/usr/bin/perl
#
#
use Net::SSH::Perl;

my $host = "mynode";
my $user = "user";
my $pass = "pass";

my $ssh = Net::SSH::Perl->new($host, options => ["RhostsAuthentication no"]);
$ssh->login($user, $pass);
my ( $stdout, $stderr, $exit ) = $ssh->cmd('uptime');

chomp $stdout;
print "$stdout\n";