#!/usr/local/bin/perl
use CGI;                             
$query = new CGI;
$query->header( -type          => 'text/html', 
                -expires       => '-1d', 
                -Pragma        => 'no-cache', 
                -Cache-control => 'no-cache'
                -Read          => 'Docs');