At the base of your system, use IO::Select to block until data arrives on any sockets or until any socket is ready to write.. I'll see about writting some code. Anything useful will be more than a few lines.