Select Code to Download

#! perl -slw
use strict;
...
    sleep 1 while threads->list( threads::running ) > $MAX;
}
$_->join for @threads;

#! perl -slw
use strict;
...

$Q->enqueue( (undef) x $MAX );
$_->join for @threads;