if ($child){
    while (my $in = <LISTEN>){
        if ($in eq 'BACKTALK'){
            $anger = $anger * 2;
        }
    }
}