Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

pc88mxer's scratchpad

by pc88mxer (Vicar)
on Jan 14, 2008 at 06:59 UTC ( [id://662266] : scratchpad . print w/replies, xml ) Need Help??

# 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";