$ perl -e'printf "umask: %04o\n", umask; printf "mode: %04o\n", 0777; printf "masked mode
: %04o\n", 0777 & ~umask'
umask: 0022
mode: 0777
masked mode: 0755
$