perl -E 'printf "%04o",384'