#!/usr/local/bin/perl
$pages = 2; # maximum 64
for ($j = 0 ; $j < $pages ; $j += 1 ) {
open (OUTFILE, ">/home/d/b/dbaron/public_html/www/i18n/ents/highest_ents$j.html");
print OUTFILE "\n";
print OUTFILE "\n";
print OUTFILE "Character Entities Test\n";
print OUTFILE "\n";
print OUTFILE "\n";
print OUTFILE "Character Entities Test
\n";
print OUTFILE "\n";
print OUTFILE "\n";
for ($i=0 ; $i < 1024 ; $i++ ) {
$k = 1024 * $j + $i;
print OUTFILE "$k:&#$k;\n";
}
print OUTFILE "<\/span><\/p>\n";
print OUTFILE "
\n";
print OUTFILE "
LDB,\n";
print OUTFILE "dbaron\@fas.harvard.edu\n";
print OUTFILE "\n";
close(OUTFILE);
}