Perlaccess : Tutorials : Subroutines
Creating Header & Footer Subroutines (11.4)
by Brett Roberts
http://www.bigresources.com
To make life easier when creating your web page's html inside of a perl script, you can make it so that you only have to code your header and footer html once.
To create a header subroutine...

1). Create a text document and type sub Header { as the first line.
2). Next, type print "Content-type: text/html\n\n"; . This sets the MIME type of the document.
3). Next, type print "<HTML><HEAD>\n";
4). Next, type print "<TITLE>Enter title Here</TITLE>\n";
5). Next, type print "</HEAD>\n";
6). Next, type print "<BODY BGCOLOR='white'>";
7). Next, type print "Any other html would go here for header";
 8). Then, type } to end the subroutine

sub Header {
  print "Content-type: text/html\n\n";
  print "<HTML><HEAD>\n";
  print "<TITLE>Enter title Here</TITLE>\n";
  print "</HEAD>\n";
  print "<BODY BGCOLOR='white'>";
  print "Any other html would go here for header";
}

To create a footer subroutine...

1). In the same text document as above type sub Footer { after line space or two after the sub header routine
2). Next, type print "\n</BODY></HTML>";
3). Next, type } to end the subroutine
sub Footer {
  print "\n</BODY></HTML>";
}

Note: at the end of your text file, type 1; to complete the subroutine document... be sure to chmod 644 textdocumentname.lib as this does not need to be executed

To call your subroutines in a script...

1). In your script, where you normally place require statements, type require "textdocumentname.lib";
2). Later in your script where you wish to call your subroutines appropriately type &Header; to call your header subroutine and &Footer for your footer subroutine according to where you wish to place them.