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

my $machine = shift || 'orion.pcg.ull.es';
my $m = GRID::Machine->new( host => $machine );

my $r = $m->compile(one => q{ print "one\n"; });

$r = $m->compile(
  one => q{ print "1"; }, 
  politely => 1 # Don't overwrite if exists
);
print $r->errmsg."\n";

$r= $m->call("one");
print $r; # prints "one"