use vars qw( %conn );

sub new {
    my $class = shift;
    $self = bless { _dbh => undef, }, $class;
    $conn{'dbname'} ||= DBI->connect( ... );
    $self->dbh( $conn{'dbname'} );
    return $self;
}

sub DESTROY {
    $_[0]->dbh->disconnect() if $_[0]->dbh;
}

sub dbh { @_ > 0 ? $_[0]->{_dbh} = $_[1] : $_[0]->{_dbh} }