sample.pl

#!/usr/bin/env perl 
use strict;
use warnings;
use Path::Tiny;

use XML::LibXML::Simple qw(XMLin);

my $xml = path('sample.xml')->slurp_utf8;

my $dom = eval { XMLin $xml };

if ($@) {
    die "Parse Error";
}
use Data::Dumper; warn Dumper $dom;