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;
        }
    }
}
[download]

Sparky