my $thread_id = $dbh->{thread_id};
my $new_dbh = $dbh->clone();
$new_dbh->{InactiveDestroy} = 0;
$new_dbh->do("KILL $thread_id");