#!/usr/bin/perl

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

my $xml1 =<<"eof";
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
    <server name="sahara" osname="solaris" osversion="2.6">
      <address>10.0.0.101</address>
      <address>10.0.1.101</address>
    </server>
    <server name="gobi" osname="irix" osversion="6.5">
      <address>10.0.0.102</address>
    </server>
    <server name="kalahari" osname="linux" osversion="2.0.34">
      <address>10.0.0.103</address>
      <address>10.0.1.103</address>
    </server>
  </config>
eof

my $xml2 =<<"eof";
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
    <server attr="sahara" osname="solaris" osversion="2.6">
      <address>10.0.0.101</address>
      <address>10.0.1.101</address>
    </server>
    <server attr="gobi" osname="irix" osversion="6.5">
      <address>10.0.0.102</address>
    </server>
    <server attr="kalahari" osname="linux" osversion="2.0.34">
      <address>10.0.0.103</address>
      <address>10.0.1.103</address>
    </server>
  </config>
eof

print "Structure1:\n".Dumper(XMLin($xml1,ForceArray => 1));
print "Structure2:\n".Dumper(XMLin($xml2,ForceArray => 1));

##</code><code>##

Structure1:
$VAR1 = {
          'debugfile' => '/tmp/foo.debug',
          'server' => {
                      'kalahari' => {
                                    'osversion' => '2.0.34',
                                    'osname' => 'linux',
                                    'address' => [
                                                 '10.0.0.103',
                                                 '10.0.1.103'
                                               ]
                                  },
                      'sahara' => {
                                  'osversion' => '2.6',
                                  'osname' => 'solaris',
                                  'address' => [
                                               '10.0.0.101',
                                               '10.0.1.101'
                                             ]
                                },
                      'gobi' => {
                                'osversion' => '6.5',
                                'osname' => 'irix',
                                'address' => [
                                             '10.0.0.102'
                                           ]
                              }
                    },
          'logdir' => '/var/log/foo/'
        };
Structure2:
$VAR1 = {
          'debugfile' => '/tmp/foo.debug',
          'server' => [
                      {
                        'osversion' => '2.6',
                        'osname' => 'solaris',
                        'address' => [
                                     '10.0.0.101',
                                     '10.0.1.101'
                                   ],
                        'attr' => 'sahara'
                      },
                      {
                        'osversion' => '6.5',
                        'osname' => 'irix',
                        'address' => [
                                     '10.0.0.102'
                                   ],
                        'attr' => 'gobi'
                      },
                      {
                        'osversion' => '2.0.34',
                        'osname' => 'linux',
                        'address' => [
                                     '10.0.0.103',
                                     '10.0.1.103'
                                   ],
                        'attr' => 'kalahari'
                      }
                    ],
          'logdir' => '/var/log/foo/'
        };