##use:runsub isitme;

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

##washit:
say 'sound',"After using [4008], [$init_obj] has to get a towel off [$actor]";

say 'sound',"[$init_obj] puts the towel back on [$actor]";