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