#!/usr/bin/perl

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

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

$filename = __FILE__;

@nowshow = (".", "..", $filename);

foreach $f (@files)
{
  unless ( ($f eq @noshow) )
  {
   print "$f <br>";
  }
}