$| ++;
if (($chld = fork()) == 0) {
   sleep(3);
   print "child exit\n";
} else {
   waitpid $chld, 0;
   print "parent exit\n";
}