Select Code to Download

package Example::Person;

...
    my( $self )= @_;
    return "$self->{name} ($self->{age} years)";
}

require Example::Person;
my $me= Example::Person->new( "Tye", 12 );
print "Hi, I'm $me.\n";
# prints:
# Hi, I'm Tye (12 years).