Yuraz вот попробуй запустить эту функцию закачки, единственное эта функция которая обрабатывает, не полный скрипт...
что будешь зачачивать -> $praiz.
sub praiz_close
{
my $praiz = param(\'praiz\');
my($format1);
my $path_praiz="../www/name/file/"; #### куда закачивать будем
# проверяем
if ($praiz eq "")
{
error(\'Файл не был выгружен !\');
}
else
{
my $name=$praiz;
my($filename,$i,$TOname,$savename,$bytesread,$buffer);
$filename=$name;
$i = rindex( $filename,"\\\\") + 1 ;
$TOname = substr( $filename, $i, 255 );
$savename = "$path_praiz/".$TOname;
#### проверка какой файл был закачен, допускаем только файл с расширением zip, xls, doc
if ( ($filename !~ /zip/i) && ($filename !~ /xls/i) && ($filename !~ /doc/i) )
{
error(\'Файл должен быть загружен в формате - Zip, Excel или Word\');
}
#### delite old
opendir(DIR,"$path_praiz") or die;
my @files=readdir DIR;
closedir(DIR);
foreach my $files(@files)
{
unlink("$path_praiz/$files");
}
### close
open (IMG, "> $savename") || die "Can\'t open $savename: $!";
flock IMG, $LOCK_EX;
while ($bytesread=read($filename,$buffer,1024)) { print IMG $buffer; }
flock IMG, $LOCK_UN;
close(IMG);
$praiz=$TOname;
$format1=$praiz;
my @temp=split /\\./,$format1;
$format1=$temp[1];
}
}