Help for this page
#! perl -sw use strict; ... print while $_ = $Q->dequeue;
perl -E"$_%1000 or say 'Here'. $_ for 1..1e6" | buf | less