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

##</code><code>##

package Table;
use DB;
@ISA=qw(DB);

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

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