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

##</code><code>##

sub new {
    my $classname = shift;
    my $self={};
    
    if ($dbhobject) {
        $self=$dbhobject
    } else {
        $self = bless {};
                my $dbh = DBI->connect("DBI:mysql:blah) or
                  die DBI::errstr;

        $self->{"dbh"} = $dbh;
    }
    $self;
}

sub DBHOBJ {
    return $dbhobject->{"dbh"};
}

##</code><code>##

use Apache::DBI;
sub DBHOBJ {
    DBI->connect("DBI:mysql:blah) or
                  die DBI::errstr;
}