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

##</code><code>##

use strict; use warnings;

package Foo;

sub new {
    my $class = shift;
    return bless { foo => "bar!\n" }, $class;
}

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

1;

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