actually its tcl::0.72 (not tcl::tk) perl 5.8 tcl 8.4 ...
i started with $interp->evalfile("source $fileName") but changed to Eval because this was happening ... also it happens of i to $interp->Eval("set fh open $fileName").... basically what is happening is that wimdows os throwing a protection error when the Tcl process is trying to open a file