my $dbh = DBI->connect(...);
  END { $dbh = undef }