Select Code to Download

use IO::Handle qw( );
use Time::HiRes qw( time sleep );
...
   $target += 0.500;
   sleep($target - time());
}