#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

print start_html();

open( TEXT, "</blah/header.txt" ) or
    die "missing text file: $!";
my @insertion;
while( <TEXT> )
{
    chomp;
    push( @insertion, $_ );
}
close TEXT;
print p( join( '', @insertion ) );
print end_html();