my $maxsize = 1024 * 20000; #max 20M 
print $query->header();
if($ENV{CONTENT_LENGTH} > $maxsize){  
 print "file too large - must be less than $maxsize bytes";
exit;   
}