Thank you very much for your help. I found another way which I use this"

#!C:\PERL\bin\perl.exe


use strict;
use CGI ':standard';
use XML::Simple;

    #Variables
    
    my $arrays = [qw/subcategory packaging_qty recipe description prod
+uct paragraph comments channel brand conditionning product_id heading
+ photo/];
    my $cat = 'C:\Program Files\Apache Group\Apache2\htdocs\legastrono
+me\XML\Admin\test4.xml';

    my $category = XMLin( (join'', $cat), KeyAttr => 1, 'ForceArray' =
+> $arrays);
        
                    XMLout($category, rootname =>'category', outputfil
+e =>('C:\Program Files\Apache Group\Apache2\htdocs\legastronome\XML\A
+dmin\test4.xml'));
[download]

I can say it works well. I found your way better because there is less code. But I need now to put the first two lines at the begin. I am still trying. Again thanks. Really this website is the best.