Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
my $ssh = Net::SSH::Perl->new("host",(protocol=>'2',port=>'52000',debu
+g=>'true'));
$ssh->login("user","pass");
$ssh->cmd("exit");

prospero: Next method to try is password.
prospero: Trying password authentication.
...
prospero: Sending command: exit
prospero: Requesting service exec on channel 1.
prospero: channel 1: open confirm rwindow 100000 rmax 16384

Received disconnect message: Window overflow received channel data.
 at /usr/local/lib/perl5/site_perl/5.8.8/Net/SSH/Perl/SSH2.pm line 284