Select Code to Download

my @threads;
for my $i (0..19) {
...
  $threads[$i]->detach;
  sleep 1;
}

print "THREAD SPAWNED.\n";
$thr1 = threads->new(\&mainsub,0);
$thr1->detach;
...
sleep 1;

# ...