$file_mode = (stat( $file_path ))[2];
$stat_mode = sprintf ("%04o", $stat_mode & 07777);
print  "chmod $stat_mode $file_path\n";
chmod ($stat_mode, "файл");