##use:runsub isitme;

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

##biteit:
say 'sound',"puur...puurrr...purrr...";

say 'sound',"[$init_obj] pats [$actor] and it continues with the licking";