#!/usr/bin/perl

print "Content-Type: text/html\n\n";

$p=0;
$i=0;
$f=0;
print "<table style=\"font-size: 10px\"><tr><td>\n";
while($f<20) {
    print "$p = $f ft. $i in.<br>\n";
    $p++;
    $i+=0.25;
    if($i>=12) {
	$i = 0; $f++;
	unless($f % 2) { print "</td><td>\n"; }
    }
}
print "</td></tr></table>\n";