Select Code to Download

BEGIN {
  my @accessors = qw(one two foo);
...
    *$methname = sub { # accessor sub };
  }
}