use strict;
use warnings;

use XML::LibXML;

my $doc = XML::LibXML->load_xml(
    location => shift,
    validation => 0,
);
print "Done\n";

use Data::Dumper;

print Dumper $doc;