Select Code to Download

Select or download this

    threads->create( \&JobAdder, $q, $maxJobs, [ 0 .. 99 ] );

Select or download this
```
        AddJob( $q, shift @$inputs );
```
Select or download this
```
    $q->enqueue( [@_] );
```

Select or download this

    while( defined( my $argRef = $q->dequeue ) ) {

Select or download this
```
        $callBack->( @$argRef );
```

Select or download this

sub GetFibby {
    my( $chunkId ) = @_;
    use autodie qw/ open close /;
    open my( $outfh ), '>', "fibojob-$chunkId.txt";

Select or download this
```
$q->enqueue( 0 .. 99 );
```

Select or download this

#! perl -slw
use strict;
...
$Q->nq( 0 .. $M );                                               ## Qu
+eue some work.
$Q->nq( ( undef ) x $T );                                        ## Te
+ll the workers they are done.
$_->join for @threads;                                           ## An
+d wait for them to finish.