package IDObject;
  my $db;
  sub set_db {
    $db = shift;
  }
  sub get_db {
    return $db
  }