##use:runsub isitme;

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

##wearit:
say 'sound',"[$init_obj] plays in [$actor] joyfully";

say 'sound',"[$init_obj] gets very cold and out of the ice lickedy spit!";