##use:runsub isitme;

##isitme:
if $actor eq $target then burnit;

##burnit:
say 'sound',"Tssss....";

say 'sound',"[$init_obj] touches [$actor] and then sees that the candles are lit so quickly pulls their hand back";