ios_config "service tcp-small-servers"


proc iperf { host } {
set sck [socket $host 19]
while {1==1} {
  set ot [clock seconds]
  set bt 0
  while { $ot == [clock seconds] } {
    gets $sck rdd
    incr bt [string length $rdd]
    }
  puts stdout "$bt bytes/sec"
  }
return 0
}


iperf 160.114.55.227