print <<"HTML" and exit if $ENV{CONTENT_LENGTH} > 10000; 
Content-type: text/plain

Error: the file is too big
HTML