# Create 10 child processes
for (1..10){
   my $pid = fork();
   last unless defined $pid;  # Too many processes already?
   unless($pid){
      # Child code here
      exit;
   }
}

# wait() for kids
while(($pid = wait()) > 0){
   # Check $? here
}