Seems to me you should use Time::HiRes.
Ah, thanks, that's helpful! That fixes the portability problem with using `date`. Calling Time::HiRes::usleep instead of using select didn't fix the latency problem, though.