## 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