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();