proc ConnectClient {host port} {
    set s [socket $host $port]
    fconfigure $s -buffering line
    return $s
}

# A sample client session looks like this

set s [ConnectClient dict.org 2628]
puts $s "SHOW DB"
gets $s
gets $s