#!/usr/bin/perl
use strict;
use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2->connect('www.example.com', 22) or die $!;
print $ssh2->error() .  "\n"; # 0
$ssh2->method('COMP_SC', 'zlib');
print $ssh2->error() .  "\n"; # -33
$ssh2->disconnect();