You can also set the permissions when you open the file for writing if you use sysopen.
sysopen FILEHANDLE,FILENAME,MODE,PERMS

You can look at the docs on perldoc.com (for some reason the sysopen() docs are not in the Monastary).

grep

grep> cd pub grep> more beer [download]