Select Code to Download

$ perl -E 'use Term::ANSIColor; use Data::Dump; my $x = colored("black
+ on white", "rgb000 on_white"); say $x; dd $x'
black on white
...

$ perl -E 'say "\e[38;5;16;47mblack on white\e[0m"'
black on white

$ perl -E 'use Term::ANSIColor; use Data::Dump; my $x = colored("black
+ on white", "black on_white"); say $x; dd $x'
black on white
...

$ perl -E 'say "\e[30;47mblack on white\e[0m"'
black on white

$ perl -E 'use Term::ANSIColor; say colored("red text", "red on_white"
+)'
red text

$ perl -E 'use Term::ANSIColor; say colored("red text", "bright_red on
+_white")'
red text