1 2 3 4 5 6 7 8
#!/bin/tclsh source configure.tcl source http.tcl socket -server http::server 8000 vwait forever