%# The fact that it works is immaterial.
%# 		-- L. Ogborn
% foreach my $key (sort keys %headers) {
%     $r->headers_out->{$key} = $headers{$key};
<meta http-equiv="<% $key %>" content="<% $headers{$key} %>">
% }
<%INIT>
require HTTP::Date;

my %headers = (
    'Content-Type'  => 'text/html; charset=utf-8',
    'Pragma'        => 'no-cache',
    'Expires'       => HTTP::Date::time2str(),
    'Cache-Control' => 'post-check=0, pre-check=0, '.
                       'no-store, no-cache, must-revalidate',
);
</%INIT>
