#!/usr/local/bin/perl -w BEGIN { open (STDERR, ">/var/www/cgi-bin/games/error.txt"); } #open head template and read into headlines open(HEAD,"; close(HEAD); #print out the head foreach (@headlines) { print "$_"; } $dir="."; print "

$file\n" if (($file =~ m/\.html?$/i) && (-T "$dir/$file")); } print "

\n"; closedir(BIN); #open tail template and read into taillines open(TAIL,"; close(TAIL); #print out the tail foreach (@taillines) { print "$_"; }