Help for this page

Select Code to Download

Select or download this

seek( DATA, 0, 1 ) if @ARGV;
foreach my $i (1..2) {
...
__DATA__
1: THIS IS YOUR PARENT SPEAKING...
2: THIS IS YOUR PARENT SPEAKING...

Select or download this

CHILD1: My pid = 31325
CHILD1: 1: THIS IS YOUR PARENT SPEAKING...
CHILD2: My pid = 31326
CHILD1: 2: THIS IS YOUR PARENT SPEAKING...