Select Code to Download

for my $job ( @jobs ) {
    my $pid = fork // die 'fork failed';
...
       dojob( $job );
    }
}

for my $job ( @jobs ) {
    async \&dojob, $job;
...
while( threads->list( 1 ) ) {
    $_->join for threads->list( 0 );
}