proc handleData { sock } {
puts $sock [ gets $sock ]
if { [ eof $sock ] } { close $sock }
}

proc newConnection { sock addr port } {
fconfigure $sock -blocking no -buffering line
fileevent $sock readable [ list handleData $sock ]
}

socket -server newConnection "1234"
vwait forever