Select Code to Download

  package IDObject;
  my $db;
...
  sub get_db {
    return $db
  }

  sub fix_it {
    my $this = shift;
...
    .
    .
  }