##use:runsub isitme;

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

##foodit:
say 'sound',"[$init_obj] gets some food out of [$actor]";

say 'sound',"[$init_obj] munches the food and puts the remains back into [$actor]";