package Person;

sub eat { ... }
sub drink { ... }


package Alcoholic;

@ISA = qw( Person );
sub drink { ... }