", "@_", "

# html.pl
 
# Contains header and ender subroutines for setting
# up HTML documents from Perl.
 
# Set up a standard HTML header section with the page title passed
# on the command line.
 
sub HTML_Header
{
    print "Content-type: text/html", "\n\n";        # Put up standard HTTP opening line.
    print "<HTML>", "\n\n";                         # Specify HTML document.
    print "<HEAD>", "\n\n";                         # Specify header section.
    print "<TITLE>", "@_", "</TITLE>", "\n\n";      # Put up the title line.
    print "</HEAD>", "\n\n";                        # End header section.
 
}                    #    End HTML_Header.pl.
 
# Set up a standard HTML footer section.  At this point, it simply
# ends the BODY and HTML sections.
 
sub HTML_Footer
{
    print "\n", "</BODY>", "\n\n";
    print "</HTML>", "\n\n";
 
}                    # End HTML_Footer
1;