package Example::Person;

use overload '""' => \&stringify;

sub new
{
    my( $name, $age )= @_;
    return bless { name=>$name, age=>$age };
}

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

##</code><code>##

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