## klient
#
set host "localhost"
set s [socket $host 10000]
  # tworzymy po³±czenie tcp z serwerem na maszynie $host, port=10000
  # komenda socket zwraca gniazdko repr. koniec tego po³±czenia

puts $s "A ku ku !!!"
  # wysylamy dane przez gniazdko s
flush $s
  # flush to wypró¿nienie buforów
  # !!! bardzo wa¿ne bez tego dane nie zostan± "wypchniête" !!!

puts $s "123 123 123"; flush $s

close $s