($tmp, $tmp, $mode) = stat("путь_к_файлу");
# преоразуем в вид понимаемый chmod
$mode = sprintf ("o", $mode & 07777);
# изменим режим
system("chmod $mode файл");URL:
Обсуждается: http://www.opennet.me/tips/info/34.shtml
В Перле есть собственная функция chmod.
Можно обойтись и без вызова system()