Помогите изменить файлы в каталоге

[Lora]

Мне необходимо изменить все файлы в каталоге, или в крайнем случае их переписать заново. Я делаю так:

 $when = time();
opendir (DIR, $vulpath);

@files = readdir(DIR);
 
closedir(DIR);

foreach $file(@files) {
next if $file =~/^\\.\\.?$/;
             
utime ($when,$when,"$vulpath/$file");
}

Но что то это не работает. Мальчики пожалуйста помогите. Только пожалуйста критику конструктивную и с работающим примером.

[Kostya]

Под виндой может и не работать.

Ещё следует добавить

next unless( -f "$vulpath/$file");

[Kostya]

И проверь права на запись в каталог.

[Chs]

Под виндой может и не работать.

Работает.
А под nix есть touch.