Даже это не помогло
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
$num= "4"; #количество загружаемых файлов !
$uploadurl = "/usr/home/archean/img/review"; # полный путь куда сохранять файл
$url = "http://www.archean.ru/img/review/"; # url
print "Content-type: text/html\n\n";
for($i=1;$i<=$num;$i++)
{
if (!param ("filik$i"))
{
print "Файл $i - Не введён!<br>";
}
else
{
my $filik = param ("filik$i");
if ($filik =~ /\//) {
@array = split(/\//, $filik);
$f = pop(@array);
}
elsif ($filik =~ /\\/)
{
@array = split(/\\/, $filik);
$f = pop(@array);}
open (FILE, ">$uploadurl/$f") or mkdir $uploadurl,(0777);
chmod(0644, "$uploadurl/$f");
binmode FILE;
print FILE while (<$filik> );
close FILE;
print "$f - ";
print "<a href=\"$url/$f\">Download</a><br>";
}
}
print "<br><a href=\"$url\">Каталог с файлами...</a>";