#!/usr/bin/perl
use CGI;
use strict;
chdir "/home/davei/public_html";
my $q = new CGI;
print $q->header;
print qq!
About These Pages
About These Pages
The last time I updated the html pages:
| File | Last Update |
|---|
!;
my @files = sort `ls *html`;
foreach my $file (@files) {
chomp $file;
my @status = stat $file;
my $mtime=$status[9];
print "| $file | ";
print scalar(localtime($mtime)), " |
";
}
print "
\n";
print qq!Contact me: Dave
Israel\n
All original material contained herein is the
property of David Israel unless otherwise noted, and use without
permission is prohibited by law. You know, the usual legal
disclaimer. !;
print "\n";