#!/usr/bin/perl
use Net::OpenSSH;
#use Math::Pari;

my $host="hplwp638";
my $user="radarop";
my $password="XXXXX";

#$InHandle = $ssh->input_log("RDFinlog.txt");
#$OutHandle = $ssh->output_log("RDFoutlog.txt");


my $ssh= Net::OpenSSH->new($host,user=>$user, passwd=>$password);
$ssh->error and warn "Couldn't establish SSH connection: ". $ssh->error;
#print "Trying to connect to $host now\n";
#$ssh->waitfor(String => 'hplwp638#[/home/radarop]');
#print $ssh->cmd("who");
my @output = $ssh->capture("who");
print @output;