", "@_", "

#!c:/perl/bin/perl
  
# Set up a standard HTML header section with the page title passed
# to it.
  
sub HTML_Header
{
    print "Content-type: text/html", "\n\n";
    print "<HTML>", "\n\n";
    print "<HEAD>", "\n\n";
    print "<TITLE>", "@_", "</TITLE>", "\n\n";
    print "</HEAD>", "\n\n";
 
}                    # End HTML_Header.pl