Создание что-то типа аккаунта...

[Dimchik]

Так дело в том, что нифига не копируются... или вы о чём-то другом

[ondr]

Dimchik

Временно вместо "copy("$sourcedir","$dir");"

1: print "$sourcedir\\n$dir\\n"; # И смотри, что не так с путями,
2: print `cp $sourcedir $dir`; # Если скопируется, то возможно File::Copy ничего не знает про твою файловую систему (врядли конечно, но мало ли).

ps: обязательно "use warnings;" и смотри, что в логи пишется

[NeoNox]

ondr 2. сразу нарвешся на cp: omitting directory
man cp -> cp -R $source $destination

[ondr]

Dimchik
В догонку:

До меня только, что дошло - ты пытаешся директорию скопировать! File::Copy копирует только файлы! Рекурсию придется самому делать. Можно воспользоваться File::Find

По случаю праздника держи чем я пользуюсь.
http://www.andrey.kaliningrad.fio.ru/ExtCM.pm
http://www.andrey.kaliningrad.fio.ru/Util.pm

Размести в каталоге STD и поправь @INC(если надо)

Синтаксис

use STD::ExtCM;

my $src = "/src/dir";
my $dest = "/dest/dir";
my $type = 1; (1 - без замещения, 2 - с замещением, 3 - с расчищением), по умолчанию 1

ExtCp($src, $dest, $type) && print \'Cool !\'; (ExtMv - перемещение)

ps: Данный модуль автоматом определяет файл это либо директория, нужна ли рекурсия либо нет. Только нужно в директории назначения обязательно(!) использовать путь вместе желаемым названием директории(файла) !!!.

[ondr]

NeoNox
Гы Уже увидел.

[ondr]

Dimchik
Упс. Чуть не забыл. Перед использованием желательно употребить "umask 0";

[Dimchik]

Прошу прощения, только сейчас появился доступ в инэт. Ого-го сколько сразу Искренне спасибо вам, ondr и NeoNox. Сейчас все это дело переварю и напишу что получилось. Оказывается, мир не без добрых и щедрых людей.
--
С прошедшим праздником!