Perl - fork() example

Here is a small example which demonstrate fork() implementation in PERL.

while(1)
{
   my @children;

   defined (my $pid = fork) or die "Cannot fork: $!\n";

   if ($pid)
   {
     # Parent Process...

     push(@children, $pid);
     wait();
     my $ret = $?;

     if ($ret)
     {
      warn("Abnormal child exit: $!\n");
      $daemon = undef;
      last;
     }
   }
   else
   {
    # Child Process...
    exit(0);
   }

   while (scalar(@children))
   {
     wait();
     my $ret = $?;
     shift(@children);
   
     if ($ret)
     {
       warn("Abnormal child exit: $!\n");
       $daemon = undef;
     }
   }

}

continue
{
  last unless $daemon;
  sleep(10);    
}