TCL:

    proc webServer {chan addr port} {
        while {[gets $chan] ne ""} {}
            puts $chan "HTTP/1.1 200 OK\n Connection: close\nContent-Type: text/plain\n"
            puts $chan "Hello World!"
            close $chan
    }

    socket -server webServer 8080
    vwait forever