#!/usr/bin/perl
use CGI qw (:standard);
my $foto = param (\\\'foto\\\');
$foto=~/.*[\\\\/\\\\\\\\](.*\\\\..*)$/; #получаем название
$filename=$1; #файла без пути к нему
open (FILE,\\">$filename\\"); #открываем файл для записи
binmode FILE; #двоичный режим (для винды,
#для юникса просто ничего не делает)
print FILE while(<$foto>); #вывод в файл
close FILE; #закрываем файл - все
# все работает,
# ничего не портится!
# удачи.
[Изменено 25.8.2001 автор: kubinets]