#! /usr/bin/perl -w use strict; use warnings; my @websafe = qw / 00 11 22 33 44 55 66 77 88 99 AA BB CC DD EE FF /; print <

Colour Table

EOF my $bg; my $lum; my $fg; foreach my $red (reverse @websafe) { foreach my $green (@websafe) { print ""; foreach my $blue (@websafe) { $lum = (hex ($red) * 0.3) + (hex ($green) * 0.59) + (hex($blue) * 0.11); $fg = $lum < 128 ? "#FFFFFF" : "#000000"; print ""; } print "\n"; } } print < EOF

#$red$green$blue