See BrowserUk's reply in Re^3: How to Multiplex a Client using IO::Select

Also if you can use Glib on your Win32 system, you can do what is shown in Readkey with timer using Glib

I've been told that Glib::IO->add_watch works on STDIN on win32.