Package DBH;
my $dbh=DBI->connect('DBD:foo:baz',bar,qux);
END{ $dbh->disconnect if $dbh };