##use:runsub isitme;

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

##sleepinit:
say 'sound',"[$init_obj] rocks back and forth in [$actor]";

say 'sound',"[$init_obj] quickly gets off [$actor] because it just doesn't seem like the safest thing to do...";