package require http

set id [http::geturl http://www.cwflynt.com:10085/tcl/question]
set page [http::data $id]

set tblStart [string first "<table " $page]
set tblEnd [string first "/TABLE" $page]
incr tblStart 16
incr tblEnd -2
puts "$tblStart $tblEnd"
puts [string range $page $tblStart $tblEnd]