#!/usr/local/bin/perl -w
use strict;
use GRID::Machine qw(qc);
my $machine = GRID::Machine->new(host => 'casiano@beowulf.pcg.ull.es');
my $r = $machine->eval(qc q{
my $h = 1;
use vars '$dumph';
$dumph = sub {
print "$h";
$h++;
};
$dumph->();
});
print "$r\n";
$r = $machine->eval(qc q{
$dumph->();
});
print "$r\n";