sub givenName { 
    $_[0]->{_givenName} = $_[1] if @_>1;
    $_[0]->{_givenName};
};