Select Code to Download

for my $accessor (qw{ foo bar }) {
  my $method = sub {
    my($self) = @_;
...
  no strict 'refs';
  *$accessor = $method;
}

sub foo {
  my($self) = @_;
  return $self->{foo};
}