как посылать файл

[soper]

напишите пожалуйста какой - нибудь простой скрипт perl, который обрабатывал бы запрос элемента формы
input type=file

[MpaK999]

use CGI;

$fromfile=param('fromfile');

#----

&Load("catalog/", $filename, $fromfile);


sub Load{ #0-dir, 1-file, 2-file name
$file_new = $_[0].$_[1];
open A, "+>$file_new";
binmode A;
binmode $_[2];
while ($bytesread = read($_[2], $buf, 1024)){
print A $buf;
}
close A;
}

[soper]

Уважаемый MpaK999 вы написали пример скрипта котороый обрабатывает запрос
type=file,




а так как я не очень хорошо знаю перл возникли не большие
проблемы
1) если я правильно понял $fromfile=param{'fromfile'}
является не чем иным как чтение параметра queri_string

2)объясните пожалуйста что значит &Load("catalog/", $filename, $fromfile);

3) далее я не совсем понял, почему сервер выдаёт ошибку 500


Будьте любезны написать пример, котрый сразу будет готов
к работе. Не сочтите за наглость