Tivo, Inc sells a digital video recorder (DVR) /personal video record (PVR) device.
A brief mention of Tcl use at Tivo:
http://acmqueue.org/modules.php?name=Content&pa=printer_friendly&pid=53
". At TiVo the main public domain tool we use is the Tcl scripting language. TiVo developed a proprietary extension to Tcl for manipulating the database and media file system on the TCD."
See some of the followign web sites for tcl code written to work with the TiVo devices:
[add more as time goes by]
See also:
which get into programming Tcl as well as other hacks.