#!/bin/tclsh

source configure.tcl
source http.tcl

socket -server http::server 8000

vwait forever