#!/usr/bin/perl  
use strict; 
use warnings; 
use POSIX ':sys_wait_h';  
 if (fork) {   
   # parent   print "[Parent]\n";   
   until (waitpid(-1, &WNOHANG)) {
     print "waiting...\n";
     sleep 1;
   }
   print "[Parent End]\n";
 }
 else {
   # child
   print "[Child]\n";
   sleep 10;
   my $i = 1;
   print "[Child End]\n";
 }