#!/usr/bin/perl

print "Content-type: text/html\n\n";
open(INFILE, "HEADER.html");
while(<INFILE>) {
print;
}
close(INFILE);

@directories = `ls`;
print "<hr /><ul>\n";
foreach (@directories) {
if ($_ =~ /\.html|\.css|\.cgi/) {
} else {
  print "<li><a href=\"$_/\">$_</a></li>\n";
}
}
print "</ul>\n";
print "<div class=\"footer\"><hr />\n";
print "<p></p>\n";