package require http

proc tst { {depth 0}} {
  if { $depth == 5 }  {
    geturl
  } else {
    incr depth 1
    tst $depth
  }
}

proc dummy { args }  {}

proc geturl { } {
  ::http::geturl "http://google.com" -timeout 600000 -command dummy
}

for {set i 0} {$i < 100 } { incr i } {
   after idle tst
}
