Select Code to Download

sub RunThread {
    my $tid = threads->tid;
...
    close ($fh2);
    $dbh->disconnect or die "disconnect failed";
}

[19:04:06.98] c:\test>DBjunk.pl
1 : 3
...
39 : 10
40 : 11
41 : 12