add a simple tcl script that discovers the IP address of the local machine.