Introduce recv timeout controlled by '-T' option in http.c This should prevent a DDoS attack where attacker and keeps the connection open but send no data.

open Metaform.Make(struct
                       val names = {A = "Tic", B = "Tac", C = "Toe"}
                   end)