Posted to tcl by schelte at Tue Mar 06 17:10:05 GMT 2018view pretty

package require http

http::geturl http://www.google.com/ -command [list callback 42]

proc callback {arg token} {
    puts [info level 0]
    exit
}

vwait forever