use strict;
use warnings;
##</code><code>##

use strict;
use warnings;
use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2->connect('example.com') or die ("SSH2 Connect Error: $!");
if ($ssh2->auth_keyboard('password')) {
  my $chan = $ssh2->channel() or die ("Channel Create Error: $@");
  $chan->exec('ls') or die ("Channel Exec: $@");
}
else { die ("Password Error"); }