#!/usr/bin/perl 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)."

":""); }}