use threads;
use DBI;

my $dbh = DBI->connect('dbi:DBM:');

...

my $thread = threads->create( \&thread );

...


sub thread {
    ...
    $sql = $dbh->prepare($query) || die($dbh->errstr); #55
    ...
}