my $header = <<EOT;
<!-- file info:
template: ------------ $template
last modified: ------- $date (MM.DD.YYYY | HH:MM)
author: -------------- $author
-->
EOT

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

  my (@TEMPLATE) = @_;

  foreach $line (@TEMPLATE)
  {
    $line =~ s/\<html/$header\<html/;
    $line =~ s/\<HTML/$header\<HTML/;
...