#!/usr/bin/perl -w use strict; my @nums = qw/00 20 40 60 80 A0 C0 FF/; my $f=0; my $g=0; my $h=0; print "Content-type: text/html\n\n"; print 'Web-Safe Colors'; print '
'; while($f<8) { $g=0; $h=0; print ''; while ($g<8){ $h=0; print "\n"; while ($h<8){ print "'; $g+=1; } print "<\/table>\n

"; $f+=1; } print '

"; print ""; print "$nums[$f]$nums[$g]$nums[$h]<\/font><\/td> "; $h+=1; } print '
';