Select Code to Download

        if ($severity eq "Extreme"){
        $background = "red";
        }
...
        else {
        $background = "grey";
        }

    my %bkcolor = (
            "Extreme", "red",
            "Severe", "orange",
...
        );

    my $background = $bkcolor{$severity};