Help for this page
wbile( my $workitem = sourceOfWork() ) { sleep 1 while $Q->pending > MAXQ; $Q->enqueue( $workitem ); }
my $cond :shared; ... ... cond_signal( $cond ) if $Q->pending < MAXQ; ...