$ umask
0022
$ perl -e 'printf "%04o\n", umask;'
0022