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

my $buflen = 100;
my $buf = '0' x $buflen;

my $ssh2 = Net::SSH2->new();

$ssh2->connect('IP Address') or die;

$ssh2->auth_password('user','pass')
  or die "Unable to login $! \n";

my $chan1 = $ssh2->channel();

$chan1->blocking(1);

$chan1->exec('uname');
$chan1->read($buf, $buflen);
print "BUF: ", $buf, "\n";

$chan1->close;

__END__