sub closeitnow {
  my $rDB = shift;
  $rDB = $rDB->{DB} if ref $DB eq 'HASH';
  my $DB = $$rDB;
  $DB->disconnect();
  $rDB = undef; # now the caller's reference is gone, too!
}