use CGI qw(:standard);
$CGI::POST_MAX        = 1024 * 100;
$CGI::DISABLE_UPLOADS = 1;
my $query = new CGI;  
print $query->header(
        -expires => 'now',
        -cache => 1, # HTTP/1.0
 );