@filesa = split(/\n/, `ls shrdlu`);
print '<center><table text-align="center" cellspacing="2" cellpadding="0" border="0"><tbody><tr>';
$i = 0;
foreach (@filesa) {
    print "<td>\n<a href=\"http://projects.csail.mit.edu/films/shrdlu/$_.txt\">$_</a>\n</td>\n";
    if (($i%4) == 3) {
	print "</tr>\n<tr>";
    }
    $i++;
}
print "</tr></tbody></table></center>\n";
