my $color1 = Wx::TextAttr->(wxRED);
                          ^^^^^^^^