You guys!!!! KISS

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

With CGI.pm you can set the max upload file size via the POST_MAX var ie:

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print