Select Code to Download

    for( 1 .. NTHREADS ) {
        $Q->enqueue( scalar <FILE> );
        lock $pos;
        $pos = tell FILE;
    }

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