while( my $workitem = sourceOfWork() ) {
    sleep 1 while $Q->pending > MAXQ;
    $Q->enqueue( $workitem );
}