##use:runsub isitme;

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

##patit:
say 'sound',"[$init_obj] shapes [$actor] into little waterfallclimbing shoes";

say 'sound',"[$init_obj] takes [$actor] off. They need more modification";