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