package Person;

sub new {
    my $type = shift;
    my $class = ref $type || $type;
    my $self = { @_ };
    bless $self, $class;
    $self;
}

sub name { shift->{NAME} }