#!/usr/bin/perl

use Net::SSH::Perl;

my ($user,$host,$password)=split(/[\@:]/,$ARGV[0]);

my $cmd="wc";
my %params=('debug',1
           );
my $ssh = Net::SSH::Perl->new($host,%params);
   $ssh->login($user, $password);
my $intext="X" x 10631; # 10631 and bigger fails.  # after the patch, 10583 doesnt work, 10582 does.
my ($stdout, $stderr, $exit) = $ssh->cmd($cmd,$intext);
print "remote output is $stdout\n";
print "remote exit status is $exit\n";
print "remote stderr is $stderr\n";