sub subroutine {

  $SIG{CHLD} = sub { wait }

  foreach (1..4) {

    unless ( $pid = fork ) {

           # do something here 

        }

    exit(0);

    }
  
  }

  until($? == '-1') { print "Waiting... Status is: $?\n" }

}