use strict;
use File::Basename qw( basename );
print "Content-type: text/html\n\n";

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

my %noshow = ("." => 1,
              ".." => 1,
              basename($0) => 1
);

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