use Net::SSH2;

my $server = "123.45.67.89";
my $ssh2 = Net::SSH2->new;

die "can't connect" unless $ssh2->connect($server);
print "Connected\n";

die "can't authenticate"
unless $ssh2->auth(username => 'un', password => 'pw');
print "Authenticated\n";

$ssh2->disconnect();

##</code><code>##

Connected
Net::SSH2::auth_password: callback must be CODE ref at C:/Perl/site/lib/Net/SSH2.pm line 295.