Select Code to Download

#I try to put in queue my record
use threads;
...
print "1 : ".$r->{'1'}; 
print "2: ".$r->{'2'};

#test for sharing queue between threads
use threads;
...
$th1->join;
$th2->join;