proc newConnect {channel clientaddr clientport} {
puts "Connection from $clientaddr $clientport registered"
puts $channel [clock format [clock seconds]]
close $channel
}

socket -server newConnect "1234"
vwait forever