Edit File: change_file_perms.inc
# $file_perms need to be in octal base # Provide a file name and the required new file permissions. # The file's permissions will be changed as per the input file # permissions. --perl use strict; my $file_perms= $ENV{'_FILE_PERMS_'} or die "File permissions are not set"; my $input_file= $ENV{'_INPUT_FILE_'} or die "Input file is not set"; die ('Unable to find file \'$input_file\'') unless (-e $input_file); chmod(oct($file_perms), $input_file) or die ('Unable to set file permissions for file \'$input_file\''); EOF