How do you use perl to determine if an XML file has an associated DTD or schema?

All I want to do is a quick way to find out if there is an internal/external DTD or schema associated with the file. I need this information because my validation software bombs out if they are not included. I want to catch this to determine whether to validate or just check for well-formedness.