#!/usr/bin/perl
use warnings;
 use strict;
 use XML::XPath; 
# use XML::XPath::XMLParser;
 $file="data.xml"; 
my $xp = XML::XPath->new(filename => $file); 
open(INFO3, "+>$file.doc"); 
 # print INFO3 "Perl Xpath\n\n";         
print INFO3 "Data INFORMATION:\n\n"; 

        foreach my $data ($xp->find('data')->get_nodelist){ 
                print INFO3 "number:"; 
                print INFO3 $data->find('info')->string_value."\n"; 
                print INFO3 "information:";

         } 

 print "Converted XML file into WORD file\n\n"; 
print $file." WORD document generated"; 
close(INFO3);