Select Code to Download

sub DESTROY {
    my $self=shift;
...
        $dbhobject = undef;
    }    
}

sub new {
    my $classname = shift;
...
sub DBHOBJ {
    return $dbhobject->{"dbh"};
}

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