perl -e'printf "%s,%s,%04o\n", (stat shift)[4,5,2]' /dir/filename