You want to use a CBC cipher with your Net::SSH::Perl object. Change your constructor to:

my $ssh = Net::SSH::Perl->new($host,
  cipher => '3des-cbc' || 'blowfish-cbc',
);
[download]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."