# Page Last Updated
# Version 1.0
# README
# By Mike Calabrese
# http://www.mikecalabrese.com
# 09-08-2004

# This program is available for free on an AS-IS basis.  I am not
# responsible for consequential damages, loss of income or whatever
# else that may happen as a result of the use of this program.

This snippet of code is designed to tell  users the last time that a
Perl based web page was updated.  It can be used with Perl based web pages
that use print statements for the output or pages that use Perl delimiters
such as:

print <<"HTMLDOC";

and

HTMLDOC

This code is designed to be pasted into an existing Perl based web page.

The way that this code works is that the Perl function 'stat' is used to
call up the last time the given page was modified.  That information is
then converted from epoch time to a proper English format.

Not much configuration required for this one. Simply configure the following
variables when using this code within your Perl based web pages:

On the very first line, make sure that this is your path to Perl on your
server and that the Perl path is the very first line.

On lines 41 and 43, be sure to change the time zones indicated to your
proper timezone.

On line 49, if your server is in a different time zone than you are, be sure
to adjust the $HOURS variable is set to add or subtract the appropriate
hours. If your server is in the same time zone that you are, just comment
out or remove this line.

That's it. This code has been tested within Linux and UNIX environments.
Windows people are on their own. If your Perl script is chmoded to 755 and
your variables are configured properly, this snippet of code should
dynamically show the date that a given Perl based web page was updated.