I still get an error when I run the script. After it returns to the bash prompt, about 10 seconds later, I get this (this was after putting the .txt file and the new .tcl files in the directory):
bash-2.02# couldn't open socket: address already in use
while executing
"socket -server newcsocket $port"
(procedure "setup_control_socket" line 4)
invoked from within
"setup_control_socket $info(port)"
(procedure "reset_control_socket" line 9)
invoked from within
"reset_control_socket"
(procedure "init_procs" line 13)
invoked from within
"init_procs"
(file "./mfs_ftp.tcl" line 1534)