#!/bin/perl
print "Content-Type: text/html\n\n";
open(FILES,"< lockefiles.txt");
print "\n";
print "John Locke: An Essay Concerning Human Understanding\n";
print "\n";
print "
\n";
while ($fileName = )
{
open(INPUT,"< ../johnlocke/$fileName");
$count = 0;
while($line = )
{
$count = $count+1;
if (($count > 4) &&
($line !~ m/^
/) &&
($line !~ m/^<\/body>/))
{
print $line;
}
}
close(INPUT);
}
print "\n";