Select Code to Download

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

package Table;
use DB;
...
  .
  .
}