# master

my @files = qw[ path/to/file0 path/to/file1 path/to/file2 ];
open my $fh, '>', 'filelist';
print $fh, "$_\n" for (@files);
close $fh;
system 'perl', 'slave.pl'