use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2->connect($ip) or die "Unable to connect host $@ \n";
$ssh2->auth(username => 'test',
            password => '1234');
$ssh2->debug(1);
my $chan = $ssh2->channel();

$chan->blocking(1);
$chan->ext_data('merge');
$chan->exec('who');
my $output;
my $len = $chan->read($output,8192);
print "output is $output\n";
my $status = $chan->exit_status();
print "status is $status\n";