##talk:runsub whattodo;
##whattodo:
if $target eq $actor then saysomething else end;

##saysomething:
say 'reflects',"[$actor] reflects '$init_cmd' back to [$init_obj]";