##use:runsub isitme;

##isitme:
if $actor eq $target then foodit;

##foodit:
say 'sound',"[$init_obj] gets some food out of [$actor] and gobbles it all up";

say 'sound',"[$init_obj] ungobbles the food because it is all sloppy";

say 'sound',"[$init_obj] kicks [$actor] out of disgustment and anger";