#!/usr/bin/perl -w

use XML::Simple;
use XML::Twig;
use YAML;

$/="\n\n";

my $xml= <DATA>; 
print "Original Version:\n"; 
print "Loaded using XML::Simple: \n", 
       Dump( XMLin( $xml, forcearray => 1, keyattr => []));
print "Loaded using XML::Twig: \n", 
       Dump( XML::Twig->new->parse( $xml)->simplify( keyattr => []));

$xml=<DATA>;
print "Original Version:\n"; 
print "Loaded using XML::Simple: \n", 
       Dump( XMLin( $xml, forcearray => 1, keyattr => [ 'name', 'type']));
print "Loaded using XML::Twig: \n", 
       Dump( XML::Twig->new->parse( $xml)->simplify( keyattr => [ 'name', 'type']));


__DATA__
<?xml version='1.0' standalone='yes'?>
<config  name="MyConfig">
<blah name="X" type="T1"> A </blah>
<blah name="X" type="T2"> B </blah>
<blah name="Y" type="T3"> C </blah>
<blah name="Y" type="T4"> D </blah>
<l1 foo1="bar1">
<l2 foo2="bar2">
<l3> Sometext </l3>
</l2>
</l1>
</config>

<?xml version='1.0' standalone='yes'?>
<config  name="MyConfig">
<blah name="X">
  <foo type="T1"> A </foo>
  <foo type="T2"> B </foo>
</blah>
<blah name="Y">
  <foo type="T3"> C </foo>
  <foo type="T4"> D </foo>
</blah>
<l1 foo1="bar1">
  <l2 foo2="bar2">
    <l3> Sometext </l3>
  </l2>
</l1>
</config>