##use:runsub isitme;

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

##talktoit:
say 'sound',"[$init_obj] says 'Can't wait for some scrumptious foods!'";

say 'sound',"Some pie falls out of [$actor] when [$init_obj] opens it";