my @allFiles = glob("$severityDir/*.txt");
    open( my $fh, '>>', $severityFile )
        or die "Could not open file '$severityFile' $!";