Как могу ли я создать каталог с «правильными» разрешениями, используя Perl mkdir?

Мне нужна помощь с этой программой. В рамках моего проекта мне нужно создать каталог. Я использовал для этого системную функцию, но позже было сказано, что Perl имеет встроенную команду mkdir .

Я использую Ubuntu 10.04. Проблема в том, что mkdir не работает должным образом.

Он создает каталог, но права доступа другие. Вот это моя функция, которая создает каталог:

sub createDir {
       my ($dir,$perm) = @_;
       unless(-d $dir) {
               mkdir $dir,$perm or die "$!";
       }
}

, и я вызываю ее во многих частях моей программы как:

createDir('.today','0755');

каталог .today создается, но проблема в разрешениях, у него нет разрешения 0755 .

Что я делаю не так?

Мои сведения о Perl:

$perl -v

This is perl, v5.8.8 built for x86_64-linux-thread-multi