", $inp, " (tiled)

#!/usr/local/perl588/bin/perl print "Content-type: text/html\n\n"; $inp = $ENV{'QUERY_STRING'}; my $NUM_CSTEP=6; my @v; my $r, $g, $b, $color; for($r=0; $r<$NUM_CSTEP; $r++) { @v[$r] = 0x33*$r; } print "\n\n ", $inp, " (tiled)\n\n"; print "\n\n"; # show different text colors print "

\n"; for($r=0; $r<$NUM_CSTEP; $r++) { for($g=0; $g<$NUM_CSTEP; $g++) { for($b=0; $b<$NUM_CSTEP; $b++) { $color = ($v[$r]<<16) + ($v[$g]<<8) + $v[$b]; printf "#%06X ", $color, $color; } print "
\n"; } } print "

\n\n"; # finish page print "\n\n";