Select Code to Download

#  bad, you are only joining 1
# $thr->join;
...

#then join them by looping thru the hash keys

sub thread_sub {
...
}