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'},
                        );


##</code><code>##

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;

##</code><code>##

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