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

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

  my (@TEMPLATE) = @_;

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