use strict;
use GRID::Machine;
my $machine = GRID::Machine->new( host => $ENV{GRID_REMOTE_MACHINE}, cleanup => 0, debug => shift()? 1234 : 0);
print $machine->eval(q{
print File::Spec->tmpdir()."\n";
my @files = glob(File::Spec->tmpdir().'/rperl/*');
local $" = "\n";
print "@files\n";
SERVER->remotelog("This message will be saved in the report file");
});