sub REAP {
    1 until (-1 == waitpid(-1, WNOHANG));  
    $SIG{CHLD} = \&REAP;
}
$SIG{CHLD} = \&REAP;

my $sock = new IO::Socket::INET(
                  # LocalHost => 'localhost',
                   LocalPort => 123,
                   Proto     => 'tcp',
                   Listen    => SOMAXCONN,
                   Reuse     => 1);
$sock or die "no socket :$!";


STARTING:
while ($new_sock = $sock->accept()) {

 $kid = fork;
 
 # Do some stuff
 
 exit;
 
} continue {
    # parent closes the client since
    # it is not needed
    close $new_sock;
}

goto STARTING;