my $dude = new Person;
$dude->name('Spicoli');
$dude->age(20);

print $dude->as_string, "\n";

package Person;
use Class::MethodMaker
   new     => 'new',
   get_set => [qw(name age)],
;

sub as_string {
   my $self = shift;
   return $self->name . ' (' . $self->age . ')';
}