=**************************************
    = Name: Printer Friendly Page
    = Description:When you build your websit
    =     e using SSI headers and footers this scr
    =     ipt is really good because it dont inser
    =     t the SSI headers and footers so all you
    =     get is the main content and what small h
    =     eader and footer you have set in this sc
    =     ript. Like hotmain uses smaill headers a
    =     nd footers for their printer friendly pa
    =     ges, best for shtml and txt files! this 
    =     could easiely be chaned so it can be use
    =     d on a perl resource website for showing
    =     the source code of scripts without havin
    =     g to have a seperate file for each cgi s
    =     cript (eg, script.cgi for running and sc
    =     ript.txt so people can see the code)
    = By: Richard Leishman
    =
    = Assumes:all you do is run the script l
    =     ike this script.cgi?address/to/ssi-page.
    =     shtml
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/xq/ASP/txtCode
    =     Id.285/lngWId.6/qx/vb/scripts/ShowCode.h
    =     tm    =for details.    =**************************************
    
    #!/path/to/perl
    ##################
    # Please link me on your website
    # Http://www.L22.co.uk
    ##################
    #Starting the html page
    print "Content-type: text/html\n\n";
    #Header of your printer friendly page goes here
    print "<!-- HEADER HTML -->\n";
    #open the file at the address after the question mark
    open FILE, "./$ENV{'QUERY_STRING'}" or print "[ERROR: Cannot open page]";
    while (<FILE>) {
    print "$_";
    }
    close(FILE);
    #Footer of your printer friendly page goes here
    print "<!-- FOOTER HTML-->\n";