print header({-pragma=>'no-cache'});
print $query->start_html(-title=>'My Florb'',
-author=>'web@domain.com',
-base=>'true',
-meta=>{'keywords'=> 'Palm PDA parser',
'copyright'=> 'Copyright © 2002 Florb, Inc.',
'Cache-Control'=>'no-cache',
'robots'=> 'index,follow'},
);
####
use CGI qw/:standard/;
$modtime = scalar(gmtime(time - (3600 * 8))) . " GMT";
$exptime = scalar(gmtime) . " GMT";
print header(-expires=>$exptime, 'last-modified'=>$modtime,
'cache-control'=>"no-cache, must-revalidate",
'pragma'=>"no-cache"),
start_html('Header Test'),
pre("\nModtime: $modtime\nExptime: $exptime\n"),
end_html;
####
200 OK
Cache-Control: no-cache, must-revalidate
Pragma: no-cache
Expires: Fri Jun 7 13:23:22 2002 GMT
Last-Modified: Fri Jun 7 05:23:22 2002 GMT