Select Code to Download

package Queue;
my $register;
...
  my ($pkg, $reg) = @_;
  $register = $reg;
}

my $reg = Register->new();
my $queue = Queue->new();
Queue->setRegister($reg);