You can take a look at XML::Smart::DTD take comes with XML::Smart. It has a set of methods to get informations from the DTD parsed by it.

You also can take a look in the methods apply_dtd() of XML::Smart, since it will automatically create XML files with the default values and format of the DTD.