@echo =================== 8 v 16
perl -E "use Term::ANSIColor; say my $x=colored('red text', 'red on_white'); use Data::Dump; dd $x"
perl -E "use Term::ANSIColor; say my $x=colored('red text', 'bright_red on_white'); use Data::Dump; dd $x"
perl -E "use Term::ANSIColor; use Data::Dump; my $x = colored('black on white', 'black on_white'); say $x; dd $x"
@echo =================== 256 vs 8 or 16
perl -E "use Term::ANSIColor; use Data::Dump; my $x = colored('black on white', 'rgb000 on_white'); say $x; dd $x"
@echo =================== [id://11146167]
perl -E "use Term::ANSIColor; use Data::Dump; my $x = colored('black on white', 'r0g0b0 on_white'); say $x; dd $x"
perl -E "say qq(\e[38;5;16;47mblack on white\e[0m)"
perl -E "say qq(\e[38;2;0;0;0;47mblack on white\e[0m)"
perl -E "say qq(\e[38;2;255;0;0;47mred on white\e[0m)"
perl -E "say qq(\e[38;2;0;127;0;47mgreen on white\e[0m)"
perl -E "say qq(\e[38;2;0;0;255;47mblue on white\e[0m)"
perl -E "say qq(\e[38;2;191;127;191;47mpurple on white\e[0m)"
perl -E "use Term::ANSIColor; use Config; say for $Term::ANSIColor::VERSION, $], $Config{myuname};"