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

my $ssh = Net::SSH::Perl->new("host",(protocol=>'2',port=>'52000',debug=>'true'));
$ssh->login("user","pass");
$ssh->cmd("exit");