Simple server

aservet.tcl

set i 0
proc accept {chan addr port} {           ;# Make a proc to accept connections
        global i
     puts "$addr:$port says $i [gets $chan]" ;# Receive a string
     puts $chan goodbye                   ;# Send a string
     close $chan                          ;# Close the socket (automatically flushes)
     set i [expr 1 + $i]
 }                                        ;#
 socket -server accept 12345              ;# Create a server socket
 vwait forever                            ;# Enter the event loop

# See also http://wiki.tcl.tk/15315