#!/usr/bin/perl $max = 12; print "Content-type: text/html\n\n"; print "\n"; print "\n"; for($i=0;$i<=$max;$i++) { print ""; for($j=0;$j<=$max;$j++) { if(!$i && !$j) { print ""; } elsif(!$i || !$j) { print ""; } else { print ""; } } print "\n"; } print "

	".($i+$j)."	".($i*$j)."

\n"; print "\n"; #and now, obfuscated: #for $i(0..12){for $j(0..12){ #print "".((!$i&&!$j)?"Content-type: text/html\n\n":"").(($j==0)?"":"")."".(($j==12)?"\n":"").(($j==12&&$i==12)?"

".((!$i||!$j)?($i+$j):$i*$j)."

":""); #}}