In Perl5 you would do it something like this:

define givenName {
    my $self = shift;
    $self->{_givenName} = shift if @_;
    return $self->{_givenName};
};
[download]

Umm, define? ;-)

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

*grin*

---
demerphq

_{<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...}