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

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

  DB<27>