set f [open "|[info nameofexecutable] sub.tcl" r+]
socket localhost 4910
puts [gets $f]
puts [gets $f]
exit
