#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

$file ="$ENV{'DOCUMENT_ROOT'}";
$file2 ="$ENV{'DOCUMENT_URI'}";
$file3 =$file . $file2;

use File::stat;
use Time::localtime;

$date_string = ctime(stat($file3)->mtime);
print qq~
<font size=2>Last updated on $date_string</font><BR>
~;
exit;