FTP is not working

Upto last month my script was working fine,
Now I am getting following error, any one help me?

Tcl_Init failed: Can't find a usable init.tcl in the following directories:
/usr/local/lib/tcl8.0 ./lib/tcl8.0 ./tcl8.0/library ./library
This probably means that Tcl wasn't installed properly.

I gave path to /usr/local/usftools, where init.tcl, but still not working.

Any help?:confused: