Select Code to Download

use strict;
use warnings;

...
print FH "$$) Doing something with $ARGV[0]\n";
sleep rand 10;
print FH "$$) Finished running.\n";

use strict;
use warnings;

...
for (1..10) {
   system("perl delay.pl $_ $log &");
}

395) Doing something with 1
395) Finished running.
401) Doing something with 4
...
405) Finished running.
411) Doing something with 9
411) Finished running.