In TCL there are four permission arguments of file. I want to open a new file and give permissions. Look following example:
open file_name.txt w 0666 <
open file_name.txt w 0666