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)";
}