use Net::OpenSSH::Compat::SSH2 qw(:supplant);
use Net::SSH2;

$Net::OpenSSH::debug=-1;

my $ip = 'xxx';
my $port = 22;
my $username = 'user1';
my $password = 'user1';

my $ssh2 = Net::SSH2->new();
$ssh2->connect($ip,$port) or die $!;
my $res = $ssh2->auth(username => $username,
                      password => $password,) or die "$!",$ssh2->error;
print "result is $res\n";