$dbh = DBI->connect( .... );
END{ $dbh->disconnect if $dbh }