Select Code to Download

use Thread::Queue;
use threads;
...
# terminate.
$thr->join();

#!/usr/bin/perl

...
$thr2->join();

print "Done\n";