#!/usr/local/bin/perl print "Content-Type: text/html\n\n"; print "\n\nNetscape Color Cube\n\n\n"; print "

Netscape Color Cube

"; for $a ("00","33","66","99","CC","FF") { print "\n"; for $b ("00","33","66","99","CC","FF") { print ""; for $c ("00","33","66","99","CC","FF") { print ""; } else { print "",$a,$b,$c,""; } } print "\n"; } print "

"; if ($b lt "99") { print "",$a,$b,$c,"

\n"; } print "\n\n";