#!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";