Posted to tcl by mjanssen at Wed Apr 19 12:58:20 GMT 2017view pretty

set f [open "|[list plink bitbucket.org]" r+]
fconfigure $f -blocking 0
proc puts_data {chan data} {
   append data [read $chan]
   puts $data
   fileevent $chan readable [list $chan $data]
}

fileevent $f readable [list puts_data $f ""]