Code:

set cztrig .czlidbind PUB -|- $cztrig steam_queryproc steam_query { nick host hand chan text } {        if { [string match "" "$text"] } {            putserv "NOTICE $nick :usage: .czlid <steamid>      example: .czlid 0:1:2345"    } else {            search_id $chan $text        }}proc search_id { chan string } {    set url "czleague.org/index.php?div=&action=steamidsearch&submit=1"    set czid [::http::formatQuery steamid $string]    set tok [::http::geturl $url -query $czid]    set page [::http::data $tok]        if {[::http::ncode $tok] != 200} {                set text "An error occured while connecting to the CZL database."                putserv "NOTICE $chan :$text"                ::http::cleanup $tok ; return        }        set fs [open search.results w]    puts $fs "$page"    close $fs}