Help for this page

Select Code to Download


  1. or download this
    # master

my @files = qw[ path/to/file0 path/to/file1 path/to/file2 ];
system 'perl', 'slave.pl', @files;
  2. or download this
    # slave

print "List of files to process:\n";
print "    $_\n" for (@ARGV);
  3. or download this
    # master

...
print $fh, "$_\n" for (@files);
close $fh;
system 'perl', 'slave.pl'
  4. or download this
    # slave

...
print "List of files to process:\n";
print while <$fh>;
close $fh;