package Male;
@Male::ISA = qw/Person/;

sub new {
    my $type = shift;
    my $class = ref $type || $type;
    my $self = $class->SUPER::new(@_);
    $self->{GENDER} = "male";
    $self;
}

sub gender { shift->{GENDER} }