Select Code to Download

use strict;
use warnings;
...
  ($flush_time, %cache) = time + $flush_interval if $flush_time < time
+;
  $cache{$id} ||= raw_load_from_cachetest($id);
}

use strict;
use warnings;
...
           rand(1_000_000),
           rand(1_000_000),
          );