Select Code to Download

while( my $r = $qr->dequeue ) {
    ++$count;
...
        $t = time;
    }

    elsif (($count & 63) == 0) {
        if (time > $t + 5) {
...
        }
    }
}

perl -E"$s=time(); $i=0; ++$c, rand()*rand() while time() < $s+5; say 
+$c/5"
3210038.8