##use:runsub whattodo;
##whattodo:if $actor eq $target then blah else end;
##blah:
say 'msg',"[$init_obj] press the button C01";
say 'msg',"[$init_obj] hear a soft thud";
say 'msg',"[$init_obj]'s taste buds will soon be satisfied by the scrumptious dried COW meat!";