Делаю так:

&ReadParse( \%Query );
$Avatar = $Query{"avatar"};

$Tmpnam="/var/tmp/tmp_file";

open(FN,">$Tmpnam");
binmode (FN);
print FN $Avatar;
close(FN);

Как узнать, какое имя было у файла на клиентской стороне?

• Как получить ИМЯ файла, передаваемого методом POST?,chip, 17:48 , 05-Окт-06

>Делаю так:
>
>&ReadParse( \%Query );
>$Avatar = $Query{"avatar"};
>
>$Tmpnam="/var/tmp/tmp_file";
>
>open(FN,">$Tmpnam");
>binmode (FN);
>print FN $Avatar;
>close(FN);
>
>Как узнать, какое имя было у файла на клиентской стороне?

А почему бы не изобретать велосипед по новой, а воспользоваться возможностями use CGI.pm?!

perldoc CGI:
When the form is processed, you can retrieve the entered filename by
calling param():

$filename = param(’uploaded_file’);