How about usleep(), also from Time::HiRes? Or Time::HiRes::sleep()?

An old traditional way to do this is the 4-argument select(), with the first 3 arguments set to undef. See the bottom of the perlfunc entry for select.