Help for this page
my @threads; for(my $i = 0; $i < $numthreads; ++$i) { my $thread = threads->create(\&fetch,$i); push(@threads, $thread); }
my @threads = map { threads->create \&fetch, $_ } 0 .. $numthreads-1;