#!/usr/bin/perl

print "Content-type: text/html\n\n";

$headerfile = "<headerfile>";
$footerfile = "<footerfile>";

unless (open (IN, "<" . $headerfile)) {
  print "Could not open header file `$headerfile'\n";
} else {
  while(<IN>) { print; }
  close IN;
}

print "This text goes after the header and before the footer.\n";

unless (open (IN, "<" . $footerfile)) {
 print "Could not open footer file `$footerfile'\n";
} else {
  while(<IN>) { print; }
  close IN;
}

exit(0);