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

my $host = "blah";

my $ssh = Net::SSH::Perl->new(
        $host,
        debug => 1,
        options => [
                "BatchMode yes",
                "PasswordAuthentication no",
                "ConnectTimeout 15",
        ]
);

$ssh->login("root")
        or die "Failed to login: $!\n";

my $cmd = "echo ";
$cmd = "."x50000;

my ($stdout, $stderr, $exit) = $ssh->cmd($cmd);
die "Failed!\n"
        unless ($exit == 0);
print "$stdout\n";