#!c:/Perl/bin/perl use CGI qw/:standard/; use POSIX qw(strftime); $now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime; print "Content-type: text/html\n\n"; print start_html('Headers'), h1('Headers'), hr; print "<b>This page can be cached\n"; print "<br><b>Page accessed at $now_string</b>\n"; print "<br><a href=expire1.pl>Go to expire1</a>\n";