Select Code to Download

    $self->foo;
    $self->bar;

sub foo_bar {
  my $self = shift;
  $self->foo;
  $self->bar;
}

BEGIN {
  no strict 'refs';
...
    };
  }
}