Help for this page
#! perl -slw use strict; ... } close IN;
#! perl -slw use strict; ... $Q->enqueue( (undef) x $NTHREADS ); $_->join for @threads;