ここだな

×　strcat(w, "<title>HP<title>\n");
○　strcat(w, "<title>HP</title>\n");