in reply to ineffectual

That was really good and very readable. There is however something that I see missing. I think that this should be added:
if ($child){ while (my $in = <LISTEN>){ if ($in eq 'BACKTALK'){ $anger = $anger * 2; } } }


Sparky