ограничения размера файла при upload\'e

[Timofey]

Делаю upload

use CGI qw/:standard/;
if (param())
{

my $path = "tmp/";
my $in=param(\'picture\');
my ($name) = $in =~ m#([^\\\\/:]+)$#;

open(OUT,">$path$name");
binmode(OUT);
while (<$in> )
{
print OUT $_;
}
close(OUT);

}

Как не делать upload если размер файла больше например 100kb

[MHz]

Приветствую.
Во-первых, максимальный размер файла для upload задается в канфигурационном файле  "upload_max_filesize".
Во-вторых, в той же форме создается скрытое поле: , которое проверяет сам броузер.
В третьих, можно и почитать: http://www.php.net/manual/en/features.file-upload.php - по моему, описано все хорошо.

[Timofey]

во-первых я не совсем понял,что за такой конфигурационный файл "upload_max_filesize".
во-вторых, как работать с  полем: , которое проверяет сам броузер.
И вообще все это должно работать на Perl\'e и через форму передаются еще другие параматры кроме самого файла