Select Code to Download

  my @closed = list_of_files();
  my @open = ();
...
    my $delay = $TICK - (Time::HiRes::time() - $time);
    Time::HiRes::sleep($delay) if $delay > 0;
  }