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