use Data::Dumper;
my $content = join '', <DATA>;
my $response = XMLin($content);
print Dumper($response);