#!/usr/bin/perl -w
use strict;

print "Content-type: text/html\n\n";

opendir(DIR,"./") or die "Couldn't open directory";
my @files = readdir(DIR);
closedir(DIR);

my @noshow = (".", "..", __FILE__);

foreach my $f (@files) {
  print "$f<br>\n" unless grep {$f eq $_} @noshow;
}