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