... $SIG{CHLD} = \&REAPER; for ( ; $paddr = accept(Client,Server); close Client) { # This will correctly set the autoflushing... select( ( select(Client), $|++ )[0] ); my($port,$iaddr) = sockaddr_in($paddr); my $name = gethostbyaddr($iaddr,AF_INET); ...