sub DESTROY {
    my $self=shift;
    if ($dbhobject) {
        $dbhobject = undef;
    }    
}