Posted to tcl by Unununium at Sat Feb 28 01:23:49 GMT 2015view raw

  1. set chan [open |[list ping www.google.com]]
  2. after 1000
  3. exec kill -INT [pid $chan]
  4. puts [read $chan]