for ($i=0; $i < $MAX_CLIENTS_PER_CHILD; $i++) {
   ($client) = $server->accept( ) or last;

   #Begin Grab incoming data
   my $data;
   my $rv   = $client->recv($data,POSIX::BUFSIZ, 0);
   #End Grab

   print $data ."\n";

}