#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use Net::SSH2; # ist Version 0.45

my $ssh2 = Net::SSH2->new();
$ssh2->connect('debby', 22) or die $!;
print "\n", join " ",($ssh2->error()); 
$ssh2->auth_password(qw(test test));
print "\n", join " ",($ssh2->error());
$ssh2->method('COMP_CS', 'zlib');
print "\n", join " ",($ssh2->error()); 
$ssh2->method('COMP_SC', 'zlib');
print "\n", join " ",($ssh2->error()); 
$ssh2->disconnect();
print "\n", join " ",($ssh2->error());