$size    = $ENV{CONTENT_LENGTH};
$too_big = 1024*1024;
die "This file is to big!" if $size > $too_big;

##</code><code>##

CGI::POST_MAX=1024 # set max upload size to 1kB;