#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

require Net::SSH2;
my %opts = (
	debug	=> 1,
	trace	=> -1,
);
my $ssh2 = Net::SSH2->new(%opts);
$ssh2->connect('sshserver .com') or die join(' / ',$ssh2->error);