#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

$xs = new XML::Simple(keeproot => 1,searchpath => ".",
      forcearray => 1,);

$ref = $xs->XMLin("test.xml");

print Dumper($ref);