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

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