You are looking at a notice board
you want to make objects do things just code it and paste this into it:------------------------------------------------------------------------------------
##use:runsub isitme;
##isitme:
if $actor eq $target then foodit;
##foodit:
say 'sound',"[$init_obj] gets some food out of [$actor]";
say 'sound',"[$init_obj] munches the food and puts the remains back into [$actor]";
--------------------------------------------------------------------------------------------------------
Then change it so it is appropriate