my $time_to_sleep = ... #
while ($time_to_sleep > 0) {
   $time_to_sleep = Time::HiRes::usleep($time_to_sleep);
}