my $PMheader1 = "
<;!-- Template: $VAR{'template'} -->;;;;
<html";
my $PMheader2 = "
<;!-- Template: $VAR{'template'} -->;;;;
<HTML";

  print "Content-type: text/html

";

  my (@TEMPLATE) = @_;

  foreach $line (@TEMPLATE)
  {
    $line =~ s/\<html/$PMheader1/;
    $line =~ s/\<html/$PMheader2/;
    print "$line
";
  }