Perl/Tk saves your favourite tools

Method drink is inherited from Human, while shave is specific to a Human::Male (although not all males do shave).

Programming is all about using correct names.