use strict;

use XML::Simple;
use Data::Dumper;

my $data = XMLin(['../2005/01/06/19/doc0000011542/.metadata']);
print Dumper($data);