#!/usr/local/bin/perl -w
use strict;
use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new("host",(protocol=>'2',port=>'52000',debu
+g=>'true'));
$ssh->login("user","pass");
my ($stdout, $stderr, $exit) = $ssh->cmd("date /t");
print "exit=$exit\nstdout=$stdout\nstderr=$stderr\n";