#kill zombie children
$SIG{CHLD} = 'reaper';

while (1)
{
   server code to accept new clients and fork()...
}

sub reaper
{
   my ($kidpid);

   while (($kidpid = waitpid(-1,WNOHANG))>0 )
   {
      print "Reaped $kidpid\n";
   }
   close $client;
}