#!/usr/bin/perl use strict; use warnings; use CGI; use POSIX qw(strftime); my $cgi=CGI->new(); print $cgi->header( # Ablaufzeitpunkt in der Vergangenheit -expires => strftime('%a, %d %b %Y %H:%M:%S GMT', (gmtime()-100)), # Modifikationszeitpunkt jetzt -Last_Modified => strftime('%a, %d %b %Y %H:%M:%S GMT', gmtime()), # Cache Unterdruecken (HTTP 1.0) -Pragma => 'no-cache', # Moderner Cacheheader und IE-spezifische Eintraege -Cache_Control => 'private, no-cache, no-store, must-revalidate, max-age=0, pre-check=0, post-check=0' ); print 'Immer Neu: '.int(rand(10)).'';