How can I set file permissions from Perl?

Question

I\'m writing a Perl script that generates a Bash script. I\'m using open() with a mode of > to output everything to a new file. Standard stuff:<

Answer 1

You will want to chmod the file like this.

chmod 0755, $filename;
#or
chmod 0755, $fh;

Alternatively, if you use sysopen and set the umask appropriately, you can do without chmod.