Select Code to Download

use DBI;
use POE;

...
        print $key;
    }
}

my @threads;
for my $i (1..2) {
  push @threads, threads->create(\&testsub, $dbh->clone());
...
        print $key;
  }
}