#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $file = "data/2011_04_11__2011_04_18_0.xml";
my $simple = XML::Simple->new();
my $data   = $simple->XMLin($file);

print Dumper($data) . "\n";