##use:runsub isitme;

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

##chompit:
say 'sound',"[$init_obj] takes a bite out of [$actor]";

say 'sound',"[$init_obj] spits [$actor] out, how long has it been there?";