Помогите разобраться с upload\'ом файлов.
код
use CGI;
use CGI::Simple;
$q = new CGI;
$u = new CGI::Simple;
$file_name = $q->param (\'uploaded_file\');
$fh = $u->upload($file_name);
open FH, ">$path/$file_name" or die "";
binmode FH;
print FH $buffer while read( $fh, $buffer, 4096 );
print $buffer;
close FH;
print $upload->cgi_error();
в итоге получаю файл размеров в 0 байт. и ошибку No filehandle for \'my_file\'.
Насколько я понял, не работает:
$fh = $u->upload($file_name);
а вот почему, не знаю.