Select Code to Download

my @running_threads = ();
while ($finished eq "false") {
...
        }
    }
}

sub worker {
    # do whatever
    eval((threads->self)->join);
}