my $ssh2 = Net::SSH2->new();
my $res = eval { $ssh2->connect($server)); 1 };
if (my $err = $@) {
    warn "There was an error connecting to $server: $err";
};