Select Code to Download

for(my $i=0; $i<MAX_THREADS; $i++) {
    threads->create( \&thread, $q )->join;
}

thread( $q );
thread( $q );
...
thread( $q );
thread( $q );
thread( $q );

my @threads = map threads->create( \&thread, $q ), 1 .. MAX_THREADS;

$_->join for @threads;