#!/usr/bin/perl

use Net::SSH2;

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

$ssh2->connect('somehost') or die;

if ($ssh2->auth_password('user','password')) {
    #shell use
    my $chan2 = $ssh2->channel();
    $chan2->shell();
    print $chan2 "uname -a\n";
    select(undef,undef,undef,0.2);
    my ($len, $buf);
    print $buf while ($len = $chan2->read($buf,512)) > 0;
    print $chan2 "who\n";
    select(undef,undef,undef,0.2);
    print $buf while ($len = $chan2->read($buf,512)) > 0;
    $chan2->close;
} else {
    warn "auth failed.\n";
}