#!/usr/bin/perl
require "/var/lib/hercperl/useful.ph";
use CGI;
$entry = new CGI;
cgitovar("include");
print $entry->header;
die if($include =~ /[^a-zA-Z0-9_\.-]/);
open(FILE,"$include.html");
$content.=$_ while(<FILE>);
close(FILE);
showpage("page_template.html")