ssh account@remote.machine.intern -c 'perl -w whatever.pl'
####
use strict;
my @machines = qw( worker1 worker2 worker3 );
my @cmd = @ARGV;
my $ssh = 'ssh';
for my $machine (@machines) {
my @commandline = $ssh, $machine, '-c', @cmd;
print "[$machine] @commandline\n";
system(@commandline) == 0
or warn "Couldn't launch >>@cmd<< on $machine: $! / $?";
};
####
...
# Linux parallel, watch out for quoting with your shell!
system("@commandline &") == 0
...
####
...
# Windows parallel, watch out for quoting with your shell!
system(1, @commandline) == 0
...