http://www.perlmonks.org?node_id=662266

# for chris68805 $index=0; while ($index<2) { my $testpath="echo I am instance $index; sleep 10; echo Exiting $index"; $id=fork(); if ($id == 0) { exec($testpath) or die "unable to exec $testpath: $!\n"; } $index++; } print "Waiting for children\n"; while (wait > -1) {}; print "All children terminated\n";