select( ( select(SOCK), $|++ )[0] ); # or use IO::Handle; SOCK->autoflush(1);