Select Code to Download

#! perl -sw
use strict;
...

print while $_ = $Q->dequeue;

perl -E"$_%1000 or say 'Here'. $_ for 1..1e6" | buf | less