perl -e 'print `bash -c "umask 0037 ; umask"`'