Select Code to Download

use DBI;
use threads qw(stringify);
...

$thr4 = threads->new(\&processor);
$thr4->detach;

sub row_sql(){
  my $select = $_[0];
...
  $dbh2->disconnect();
  return (@row2);
}