proc accept {s ip_address port} {
        fileevent $s readable [list echo $s $ip_address]
    }
    proc echo {s addr} {
        gets $s line
        if [eof $s] {
            close $s
        } else {
            puts $s "I just received '$line' from you, $addr."
            flush $s
        }
    }
    socket -server accept 54321