##
#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML::Reader;
my $file="data.xml";
my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable to open file");
while ($reader->nextElement( 'data' ) ) {
my $info = $reader->readOuterXml();
}
$all=$all.$info;
}
print $all;
##
##
12
electronics
.......
23
computers
.......