use strict;
use warnings;
use XML::Simple;

my $xs1 = new XML::Simple ();
my $doc = $xs1->XMLin (<DATA>)

__DATA__
<end/>