## klient
#
set s [socket localhost 10000]

puts $s "123 123 a ku ku !!!"; flush $s

close $s

file chan sock*