Select Code to Download

$CODEREFS{1}{1} = {
  property => 'value',
...
  cref => sub { ... }
};
...

package Blah;

...

my $blah = Blah->new();
$blah->access(1, 1);