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