#!/usr/bin/perl -w
use strict;

my $filename = "./simple.xml";

use XML::Simple;
my $parser = XML::Simple->new();
my $doc = $parser->XMLin($filename);

use Data::Dumper;
print Dumper($doc);

# -- what could be simpler?