#!/usr/bin/perl -w
use strict;
my @nums = qw/00 33 66 99 CC FF/;
my $f=0;
my $g=0;
my $h=0;
print "Content-type: text/html\n\n";
print '
Web-Safe Colors';
print '';
while($f<6) {
$g=0;
$h=0;
print '';
while ($g<6){
$h=0;
print "\n";
while ($h<6){
print ""; # rotates the cell color
print ""; # rotates the text color
print "$nums[$f]$nums[$g]$nums[$h]<\/font><\/td> "; # prints the hex equiv
$h+=1;
}
print ' | ';
$g+=1;
}
print "<\/table>\n";
$f+=1;
}
print ' ';
|