perl XML-DTDParser