Select Code to Download

    package Person;
    use strict;
...
            NAME => undef,
            AGE  => undef
        };

        my $closure = sub {
            my $field = shift;
            @_ and $self->{$field} = shift;
            $self->{$field};
        };

        bless $closure, $class;
        $closure;
    }

    sub name { &{ $_[0] }("NAME", @_[1 .. $#_ ] ) }
    sub age  { &{ $_[0] }("AGE",  @_[1 .. $#_ ] ) }

    use strict;
    use Person;
...
    $person->age(22);

    print $person->name, " is ", $person->age, " years old.\n";