##push:runsub whattodo;

##whattodo:
if $actor eq $target then biteme else notme;

##biteme:
say 'act',"[$actor] bite you ferociously";
say 'act',"[$init_obj] yells 'OUCH!'";

##notme:
var $how to (slowly,quickly,puzzingly);

say 'act',"[$actor] $how wonders why [$init_obj] is pushing [$target]";