Select Code to Download

use threads;
use Thread::Queue;
...

print for
map { $_->join } map { threads->new(\&qrun) } 1 .. 15;