# ======================= # 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