#!/usr/bin/perl -wT

use Net::OpenSSH;
$ENV{PATH} = "/bin";
my $ssh = Net::OpenSSH->new("<IP>", user => "<username>", password => "<password>");
$ssh->error and die "Can't ssh to host: " . $ssh->error;
$ssh->system('whoami')or die "whoami failed: " .$ssh->error;