package objFood; use base qw(Object);