#!/usr/local/bin/perl -w
use strict;
use GRID::Machine;
my $m = GRID::Machine->new( host => shift());
$m->chdir('/tmp');
$m->put([ $0 ]);
$m->run("uname -a; ls -l $0");
#!/usr/local/bin/perl -w
use strict;
use GRID::Machine;
my $m = GRID::Machine->new( host => shift());
$m->chdir('/tmp');
$m->put([ $0 ]);
$m->run("uname -a; ls -l $0");