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