#!/usr/bin/perl -w

###############
## Libraries ##
###############
use strict;
use warnings;
use XML::Simple qw{ :strict };

##################
## User-defined ##
##################
my $h_xml_args  = {
    'forcearray' => [ ],
    'keyattr'    => [ ],
    'KeepRoot'   => 1,
};

##################
## Main program ##
##################
chomp(my @xml = <DATA>);
my $xml = join("\n", @xml);

# Read and display the input XML
print "[Input XML]\n";
print "-" x 79, "\n";
for (my $i = 0; $i < @xml; $i++) {
    printf " %3d.  %s\n", $i+1, $xml[$i];
}
print "-" x 79, "\n\n";


# Parse the XML with XML::Simple
my $h_xml = eval { XMLin($xml, %$h_xml_args) };
if ($@) {
    die "Error while parsing XML:\n$@\n";
}


__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE MSG PUBLIC "SYSTEM" "MESSAGE.dtd">
<ROOT>
<TYPE>notification</TYPE>
<IDENT>1972308645</IDENT>
<STATE>processed</STATE>
<HEADER>Example of XML::Simple</HEADER>
<ERROR>The error: no closing "/ERROR" tag<ERROR>
<MORE_INFO>More info</MORE_INFO>
<STILL_MORE>Still more info</STILL_MORE>
<AND_SO_ON>And so on ...</AND_SO_ON>
</ROOT>