# =======================
# client script -- tclsh:
# =======================

set Self "127.0.0.1"
set port 6006

set s [socket $Self $port]
fconfigure $s -buffering line

set T ""
# initialize T with 10,000 bytes of arbitrary data
for {set i 0} {$i < 1000} {incr i} { set T "$T 123456789" }
# send this data one million times
for {set i 0} {$i < 1000000} {incr i} { puts $s $T }

close $s
puts "client exits"
exit