Welome to PerlMonks! :-)
When posting a question, be sure to read How do I post a question effectively? first. What have you tried? We can't just "suggest something", as there are many ways of "generating an xml dtd", each being a little different.

In order to get more useful answers, you'll need to be a bit more specific, I'm afraid.