#!/usr/bin/perl

print "Content-Type: text/html\n\n";
$size = 35;
print "<table style=\"table-layout: fixed; width: ".($size*50).";\">\n";
for($x=1;$x<=50;$x++) {
    print "<tr>\n";
    for($y=1;$y<=50;$y++) {
	print "<td style=\"width: $size"."px !important; height: $size"."px !important; border: 1px solid #DDDDDD; text-align: center;\">";
	if($x*$y <= 101) {
	    print $x*$y;
	}
	print "</td>";
    }
    print "</tr>\n";
}
print "</table>\n";