Select Code to Download

<?xml version="1.0" encoding="us-ascii"?>
<?xml-stylesheet type="text/xsl" href="Adminproduct.xsl"?>
...
            </product>
        </subcategory>
</category>

use strict;
use CGI ':standard';
...
my $category = XMLin((join'', @data));

XMLout($xml, rootname =>'category', outputfile =>('c:\test4.xml'));

<category name="Coffee" heading="150 years of know how at the service 
+of a same strategy: Taste" photo="images/bag_legal.jpg">
  <comments>
...
    </product>
  </subcategory>
</category>