You may want to have a look at XML::Compile. Once you convert your DTD to a schema, this module (according to the docs ... if I understand them correctly) should help you produce XMLs according to the schema.