sub DB_finish
{
    my $self = shift;
    if (defined($self->{dbh})) {
        $self->{dbh}->disconnect;
    }
}