#!/usr/bin/perl -I/home/pp2/LGRID_Machine/lib/ -wd
use strict;
use GRID::Machine;

my $host = shift || 'casiano@beowulf';

my $machine = GRID::Machine->new(host => $host, uses => [ 'GRID::Machine' ]);

my $r = $machine->eval(q{
 my $telnet = GRID::Machine->new(host => 'orion');

 gprint "ssh ok";
});

print $r->result;