print "Content-type:text/html\n\n"; opendir (D,".") || die "$!"; print join ("\n",(sort {$a cmp $b} grep !/^\.\.?$|$0/, readdir D)); close(D);