##use:runsub isitme;

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

##readit:
say 'sound',"Oooh! Awww... Hmmm....";

say 'sound',"[$init_obj] gets a book out of[$actor] and reads it with great interest";