Загрузка файла

[Error202]

Сохраняю файл так:

open (OUT,">file.doc") || die \'bad\';
binmode(OUT);  
while(<$file1>) {  print OUT $_; };  
close(OUT);


Форма:

<form method="post" action="super.pl" style="margin:0" enctype="multipart/form-data">
<input type="file" name="file1" style="width:250px">
</form>


Зарегистрировал пару аккаунтов, добавляю, все нормально...

Но в последнее время народ стал жаловаться, что файлы создаются, но остаются пустыми...
Эта штука не у всех...
С чем такое может быть связано?

[APL]

while(<$file1> ) {  print OUT $_; };  

что в переменной $file1? должен быть указатель на уже открытый файл, ошибка потому что либо файл не был открыт, либо не смог его прочитать

[Error202]

$file1 = param(\'file1\');

Получает внешний файл по указанной в 1-ом сообщении форме...

[APL]

1. Что за функция param()

2. $file1 должен содержать  ДЕСКРИПТОР ФАЙЛА

например так

Код: [Выделить]

open (IN,"in") || die \'bad\';
$in = IN;
open (OUT,">out") || die \'bad\';
binmode(OUT);  
while(<$in> ) {  print OUT $_; };  
close(OUT);


[Phoinix]

APL

...
use CGI qw/param/;
...
my $file = param(\'file\');
...

Если не знаешь что содержится в $file, то читаем доки: CGI

Error202

Вообще , проверь $CGI::POST_MAX
А так, нужно смотреть конкретные случаи ошибок, как минимум лог.