#!/usr/bin/perl
open(FH, "indexfile") || die "Content-Type: text/html\n\nNOOOOOOO!!!!!
Error: $!";
print "Content-Type: text/html\n\n";
print "\n\nIndex\n\n\n";
foreach $page () {
($id, $file, $title) = split /:/, $page;
print "- ".$title."
\n"
}
print "
\n\n";