Why not use umask? The only other built-in way I know of that might be of use is perldoc -f -X, but I'm not sure that's what you want.
You might look at Stat::lsMode from CPAN if you would rather deal with permissions as -rwxr-xr-x (as ls -l would show you).