Tcl Catch Exec Example