#!/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 "'; $g+=1; } print "<\/table>\n

"; $f+=1; } 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 '
';