I have the following code: I want to add in the foreach loop to put out the name of the file too.
set outfile [open "out.tcl" w] set allfiles "
