Покапался тут на форуме и нашел только один пример:
$filename=$KARTINKA; №Нужно для имени файла
$filename =~ s/^.*(\\\\|\\/)//; # вырезает имя из общей локальной дороги
open (OUTFILE,">$filename");
binmode $KARTINKA; # Обезательна для картинок и других Бинари
binmode OUTFILE; # Обезательна для картинок и других Бинари
while ($bytesread=read($KARTINKA,$buffer,1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
но он у меня неработает, может у меня руки не истого места ростут....
приходит файл допустим с формы $FORM{\'FILE\'}:rolleyes: