sub closenow {
  my $rDB = shift;
  my $DB = $$rDB;
  $DB->disconnect();
}