my $q = CGI->new;

print $q->header(
    -expires => '0',
    -pragma => 'no-cache',
    -cache_control => 'no-store, no-cache, max-age=0, must-revalidate',
);