#! /usr/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser);
require './header.cgi';
require './cat.cgi';

open ( DATA1, "$ENV{'QUERY_STRING'}.html" );
$title = <DATA1>;

header ( $title );

while ( $line = <DATA1> ){
  print $line;
}
close ( DATA1 );

cat ( "footer.html" );