has asked for the wisdom of the Perl Monks concerning the following question:

Hello Every one,

Here is my input xml:

<?xml version="1.0"?> <IPDetails> <productName>IBM Tivoli Workload Scheduler for Applications</product +Name> <vendorName>IBM</vendorName> <version></version> </IPDetails>`

Output XML should be:

<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE Inventory PUBLIC "Discovery" " +covery.dtd"> <Discovery Tracker="9.3" Audience="machine" Scope="rhel6x86sriram" + MachineName="rhel6x86sriram" UserName="system" Hardware="True" Softw +are="True" TrackFilesInUserDiscovery="True" DateTime="20140212T124338 +" Type="Full" FileScan="True"> <Package Name="IBM Tivoli Workload Scheduler for Applications" Evi +dence="IP" Version="8.6" InstallDate="20140115T085823"> <Property Name="InstallLocation" Value=""/> <Property Name="Publisher" Value="IBM"/> </Package> </Discovery>

I am new to xml and i am confused whether to use XML::Simple or XML::LibXML.In the output xml,Discovery node attributes should be hardcoded. Please provide the right approach to produce the output xml file. Please give me the pseudocode if possible.

Your help is much appreciated.