#!/usr/bin/perl

use CGI qw/:standard/;

my $q = new CGI;

print $q->header(-content_length => -1000000000);