upload и размер файла

кто-нибудь знает как ограничить размер загружаемого файла?
т.е. нажали кнопочку аплоад, и мой скрипт должен проверить, если файл Ю 50 кб - то не аплоадить его?

[Chs]

perldoc CGI

$CGI::POST_MAX
    If set to a non-negative integer, this variable puts a ceiling on
    the size of POSTings, in bytes. If CGI.pm detects a POST that is
    greater than the ceiling, it will immediately exit with an error
    message. This value will affect both ordinary POSTs and multipart
    POSTs, meaning that it limits the maximum size of file uploads as
    well. You should set this to a reasonably high value, such as 1
    megabyte.

[Kostya]

1) В апачах директива на ограничение размера присылаемых данных есть.
2) Если только для вашего скрипта, то
$ENV{\'CONTENT_LENGTH\'} - размер всех данных присылаемых методом post.

спасибо, я нашел более аккуратный способ

$fh=upload(\'file_up\');
print -s $fh;

[Chs]

спасибо, я нашел более аккуратный способ

Не аккуратный в том то и дело, установка переменной CGI будет рубить большой файл "на подлете", а в этом способе определяется размер файла уже закачанного на сервер. Выводы понятны?

[Green Kakadu]

Как сказал Chs:
$CGI::POST_MAX=50*1024;
чего может быть проще?