#!/usr/local/bin/perl -w
use strict;
use GRID::Machine;
use Data::Dumper;

my $machine = GRID::Machine->new( 
      host => shift || 'casiano@orion.pcg.ull.es',
      cleanup => 0,
   );

print "********* Local: $$ ********\n";
$machine->eval( "use POSIX qw( uname )" );
my $remote_uname = $machine->eval( "uname()" )->results;
print "@$remote_uname\n";

# We can pre-compile stored procedures
$machine->sub( 
  squares => q{
    my @r;

    print "********* Remote: $$ ********\n";
    system('ls -ltr | tail -5');
    for my $x (@_) {
       push @r, [ map { $_*$_ } @$x];
    }
    return @r;
  },
);

my $x = [1..3];
my $content = $machine->squares($x,$x,$x);
print "$content\n", Dumper($content->results);