I'm not sure this will work any better, but take a look at the approach using select() documented in perlfunc or here. It may be using the exact same approach as Time::HiRes though.