Select Code to Download

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

use strict; use warnings;

...
my $foo = Foo->new;
print $foo->get_foo;