#!/usr/local/bin/perl

print "200 OK\n";
print "Content-type: text/plain\n";
print "\n";

opendir(DIR,".");
foreach $name (readdir(DIR)) {
print "$name\n";
}
