sub closeplease {
  my $Booga = shift;
  my $DB = ${$Booga->{DB}};
  $DB->disconnect();
}