>perl -E "use XML::Simple qw||;my $xs=XML::Simple::->new(NoAttr=>1);sa y $xs->XMLout ({x=>{Summ=>1,Config=>2}})" 2 1