И ещё учимся использовать $^E в конструкции исключения, т.е в or die("Error: $! ($^E)\n "). $^E - это сообщение об ошибке уровня ОС, что даст больше информации чем перловский $!
I'm not fluent in Russian, but I'm guessing you're asking how to create a directory in Perl? In that case, you can use the `mkdir` function, like so: `mkdir($directory_name) || die "Can't create directory: $!";`.