use Net::SSH::Perl;
$host="ip";
$username = "username";
$pass = "password";
$ssh=Net::SSH::Perl->new($host, debug=>1, cipher=>'DES', port =>22);
$ssh->login($username, $pass);
my(@arra) = $ssh->cmd("?");
print "output: $arra\n";