$mode = (stat($filename))[2];
printf "permissions are %04o\n", $mode &07777