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

my $name = shift;
my $host = 'casiano@beowulf.pcg.ull.es';

my $machine = GRID::Machine->new(host => $host, remotelibs => [ qw(MyRemote) ]);

$machine->send_operation( "MYTAG", $name);
my ($type, $result) = $machine->read_operation();

die $result unless $type eq 'RETURNED';
print $result;