Select Code to Download

.
.
use XML::LibXML;# Plus the other modules above
...
my $xpath = XML::XPath->new(xml=>"$file");

[...And resume the above code.]