Select Code to Download

<Books>

...
</Book>

</Books>

$file="books.xml";
my $xp = XML::XPath->new(filename => $file);

open(INFO3, ">$file.doc");

print INFO3 "Perl Xpath\n\n";
print INFO3 "BOOK INFORMATION:\n\n";

use XML::XPath; 

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