EndOfHTMLPostamble1
#
# Print readable date
#
if (substr($day,0,1) eq "0") { # remove leading 0 in day
$day = substr($day,1,1);
}
$month = $months[$month-1];
$readableDate = "$day $month $year";
print STDOUT "
Last updated $readableDate
";
print STDOUT <<"EndOfHTMLPostamble2";
http://www.rdrop.com/~half/siteIndex.html
EndOfHTMLPostamble2
print STDOUT "All contents of this Web site ©2001-$year Mark L. Irons.
\n
";
print STDOUT <<"EndOfHTMLPostamble3";