Select Code to Download

sub doit {
    ....
}

doit( $args[ $_ ] ) for 0 .. $n-1;

use threads;

...
} 0 .. $n - 1;

$_->join for @threads;