# create a socket connection
set ip localhost
set port 1234
set sock [socket $ip $port]
puts $sock
# send a msg to server
set cmd "openall"
puts $sock $cmd
flush $sock
# receive feedback from server
set rec [gets $sock]
puts $rec
# close socket connection
close $sock