yeah, the usual trick, but it it should be noted that because of the int the first sleep-interval will be far shorter than one second.

  DB<25>  use Time::HiRes qw( time sleep );

  DB<26>  print time, "\n";$nextsecond = int time + 1;sleep $nextsecon
+d - time;print time, "\n"
1579981231.91855
1579981232.00031

  DB<27>
[download]

Which is normally not a problem, if the loops body starts with the sleep, before doing something.