Select Code to Download

my @threads = map threads->create( \&thread, $Q, shared_clone( $dbh ) 
+), 1 .. $T;
#............................................^1, ^^^^^^^^^ 2 ^^^^^^^^

sub thread {
     my $tid = threads->tid;
     my( $Q ) = @_;

#! perl -slw
use strict;
...
$dbh->disconnect;

unlink 'file';