#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use XML::Simple;

my $xml = XMLin( \*DATA );
pp $xml;

__DATA__
...