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