$parent = open PROC, "someProg|";
while(<PROC>){
   if(childIsBorn){
      push(@children, "PIDofChildProc");
   }
}