in reply to inetd server not writing correctly to client
Read perldoc -f select (select), and select STDOUT before the loop.