#!/usr/bin/perl -l

my $foo = Foo->new(givenName => 'original');
print $foo->givenName;

$foo->givenName(42);
print $foo->givenName;

package Foo;
use Class::MethodMaker
   new_hash_init => 'new',
   get_set       => qw(givenName),
;