Select Code to Download

  use Thread qw(async); 
    use Thread::Queue;
...
    $DataQueue->enqueue(\$thr); 
    sleep 10; 
    $DataQueue->enqueue(undef);

package Thread::Queue;

...
}

1;