Thanks very much for this; it helps to see some simple working code. One minor nit is that IO::Handle doesn't need to be used here, just IO::Select and IO::Pipe.