package DBH;

use DBI;

use base Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(dbh);

# load auth data from config
# or explicitly defined here

my $dbh;

sub dbh {
  unless(defined $dbh) {
    $dbh = DBI->connect(...)
  }

  $dbh
}

END {
  $dbh->disconnect if defined $dbh
}

1