BluntMan6не могу понять почему, после того как я "отбрасываются каталоги"
скрипт перестает работать:

$outDir1 = "new";
$outDir2 = "old";
opendir(DIR, $outDir2) or die "";
while (defined($file = readdir DIR)) {
next if (-d $file);
open(F10,$file) || die "File not found!";
$file = join("",<F10>);
...
open(F11, ">$outDir1/$file") || die "File not found!";
print F11 $file;
close(F11); }
closedir(DIR);

помогите, пожалуйста....

1) открываем файл с именем $file
2) читаем файл и загоняем его содержимое в переменную где хранилось имя этого файла
3) пытаемся открыть файл с именем $outDir1/<все содержимое старого файла>

дальше объяснять? ;-)

PS Блин! Чукча не читатель, чукча писатель! Пытайтесь хотя бы прочесть то что пишите!!!