#!/usr/local/bin/perl open LIST,"ls ../status/*.txt|"; @files=; close LIST; open LIST,"ls ../status/*.html|"; @files=(@files,); close LIST; print "Content-type: text/html\n\n"; print "Daily Status Reports/News\n

Daily Status Reports/News

$stub\n"; } print "

"; print ""