#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Muffin Filters\n";
print "\n";
print "Muffin Filters
\n";
print "
\n";
print "
\n";
@list = glob ("*.html");
print "\n";
foreach (sort @list)
{
($name, $ext) = split ('\.');
print "- $name\n";
}
print "
\n";
print "
\n";
print "\n";