package main;

my $him = new Male(NAME => "Foo Bar");
print "\$him is in the class '", ref $him, "'\n";
print $him->name, " is of the gender ", $him->gender, "\n";