#!/usr/local/bin/perl
# Site Last Updated Program
# writelastup.pl
# Version 1.1
# By Mike Calabrese
# http://www.mikecalabrese.com
# 07-26-2003

# 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.

# Get the local time
($second,$minute,$hour,$day,$month,$year,$wday,$tzone) =
(localtime)[0,1,2,3,4,5,6,8];

# Write the current local time to the file lastupdate
open(OUTFILE, ">/exact/UNIX/path/to/cgi-bin/lastup/lastupdate");
print OUTFILE ("$wday $month $day $year $hour $minute $second $tzone");