TCL script to go through all folders in a directory and perform a function

File structure

File1 test.pdb xyz.txtFile2 test.pdb xyz.txtFile3 test.pdb xyz.txt

I want to loop in through all folders in the directory and run the following code which is in textfile autopsf.tcl on Tk console :

package require autopsfmol new test.pdbautopsf -mol 0package require solvate  solvate test_autopsf.psf test_autopsf.pdb -t 5 -o solvatepackage require autoionizeautoionize -psf solvate.psf -pdb solvate.pdb -neutralize

I am running the following code at the moment :

for d in ./*/ ; dosource autopsf.tcldone