( Nevermind, its probably not buffering. The "by the way" still applies, though )

I don't you flushing the output. Suffering from Buffering?

By the way, use IO::Select instead of using select. It's much more readable.