See [http://www.pcorp.com.au] for details of projects, with TCL we use it for the development of SCADA, test and control applications. Some great tools for these applications are of course [BLT], [Starkits], [tcllib], [bwidgets]