#!/usr/bin/perl print "Content-type:text/html\n\n"; print ""; opendir(DIR, ".") or "can't open dir"; @filenames=sort(readdir(DIR)); @filenamesm=grep(!/^[\#\.]/,@filenames); foreach $y (@filenamesm) { print "$y

"; } print ""; close(FILE); close(DIR);