#!/usr/bin/perl

{
&header;
}

sub header
{
$header="header.htm";

open (HEAD,$header) || die "can't open $header";
$header="";
while (<HEAD>){$header .=$_;}
close(HEAD);

$header=~s/\<LIST\>/My_List/gie;

print "Content-type: text/html\n\n";
print "$header";
}
1;