Parsing.pl

sub parse{

my $parser = XML::LibXML->new();
my $tree = $parser->parse_file($file);
open (my $FhResultat, '>', $FichierResultat );
my $root = $tree->getDocumentElement;
my @productname = $root->getElementsByTagName('product');

	foreach my $child (@productname){
		print {$FhResultat}
		$child->getElementsByTagName('name')->[0]->getFirstChild->getData, "\t",
		$child->getAttribute('category_id'),"\t",
		$child->getAttribute('id'), "\t",
		$child->getElementsByTagName('desc_short')->[0]->getFirstChild->getData, "\n";
}