#!/usr/bin/perl -w print "Content-type: text/html\n\n"; opendir(DIR,"./") || die print "Couldn't open directory"; my @unsfiles = readdir(DIR); closedir(DIR); @files = sort(@unsfiles); my $filename = __FILE__; my @noshow = (".", "..", $filename); print <

html foreach $f (@files) { unless (grep /$f/, @noshow) { print "$f
\n"; } } print < html2