package My::Module;

my $db;
BEGIN {
  $db = DBI->connect($blah, $blah, $blah) or die "...\n";
}
END {
  $db and $db->disconnect;
}

sub db {
  $db;
}