#!/usr/bin/perl -w

use strict;

opendir PWD, ".";
my (@all, $entry);
@all = readdir PWD;
closedir PWD;

print <<eof;
Content-Type: text/html

<ul>
eof

foreach $entry (@all) {
    print <<eof;
        <li><a href="$entry">$entry</a></li>
eof
}

print "</ul>\n";