#!/usr/bin/perl
use warnings;
use strict;
use Net::SSH2;
use Data::Dumper;

my $hostname = shift;
chomp($hostname);

my $ssh2 = Net::SSH2->new();
$ssh2->connect($hostname) or die "cant connect to $hostname\n";
$ssh2->auth_password('root','mypassword') or die "cant login to $hostname\n";

(my $code, my $error_name, my $error_string) = $ssh2->error();

if ($code)
{
        print "$code: $error_name: $error_string \n";
        exit();
}


my $chan = $ssh2->channel();
$chan->blocking(0);
$chan->shell();

print $chan "uname -a\n";
my @uname = <$chan>;
print @uname;

print $chan "who\n";
my @who = <$chan>;
print @who;

$chan->close;