TCL, make #!shebangs +x