Select Code to Download

for my $i ( 0 .. 50 ) {
    queueProcessRequest( $i );
}

    while (my $job = $dispatcher->dequeue()) {

#!/usr/bin/perl -lw
use strict;
...
    queueProcessRequest( $i );
}
endThreadedOperation();

#!/usr/bin/perl -lw
use strict;
...
$Q->nq( $_ ) for 1 .. 50;
$Q->nq( (undef) x $T );
$_->join for @threads;