Select Code to Download

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

    return ( $thread->tid() );
}

my $tests = 7; # a number of tests

...

    return $err_count;
}

sub ALRM_handler {
    alarm 0;
    $Q->enqueue("DIEDIE");
    $die = 1;
}

my $time = 3600; #or some number of seconds

...
my $err_count = recv_results();

$die = 1;    #this will force any threads that are still stuck in the 
+while loop to exit