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

##</code><code>##

  sub fix_it {
    my $this = shift;
    my $what = shift;

    my $results = $this->get_db->search($what);
    .
    .
  }