Select Code to Download

sub get_foo {
  my $self=shift;
  return $self->{foo};
}

sub foo {
  my $self=shift;
...
    return $self->{foo}
  }
}