my $db = DBI->connect( DB, USER, PW ) or die "foo\"n";
  END { $db->disconnect }