Scripting with tcl