#!/bin/perl

package main;
#main
use Employee;

my $hld = new Employee();
print "my gender is " . $hld->gender() . ".\n";
print "my name is " . $hld->fullname() . ".\n";
exit(0);


#Employee - Inherits from Person Class and Gender Class
package Employee;
use Gender;
use Person;
@ISA = ("Gender","Person");

1


#Person Class - just sets full name
package Person;
use strict 'vars';
sub new {
	my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        $self->{FULLNAME} = "Robert Walkup";
        bless ($self, $class);
        return $self;
}

sub fullname {
        my $self = shift;
        return $self->{FULLNAME};
} 
1


#Gender Class - just sets full gender
package Gender;
use strict 'vars';
sub new {
	my $proto = shift;
        my $class = ref($proto) || $proto;
        my $self  = {};
        $self->{GENDER} = "MALE";
        bless ($self, $class);
print "YEAKS\n";
        return $self;
}


sub gender {
        my $self = shift;
        return $self->{GENDER};
} 
1