use strict;
use warnings;

use XML::Twig;
my $file = 'test.xml';

my $tmp;
$tmp = XML::Twig->new();
$tmp->parsefile($file);
my $root = $tmp->root;

foreach my $product ($root->children('para')){
  my $para = $product->first_child_text;
  print "$para\n";
}