##use:runsub isitme;

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

##thinkit:
say 'sound',"[$init_obj] puts on [$actor]";

say 'sound',"[$init_obj] . o O (Carmelita Spats is such a snob!)";