##use:runsub whattodo;
##whattodo:if $actor eq $target then sink else end;
##sink:
say 'msg',"Water starts to run";
say 'msg',"[$init_obj] washes their hands";