perl报错，请问大佬们该怎么解决呀

use strict;
use warnings;
use XML::Simple qw(:strict);
my $content="";
while (<DATA>) {
    chomp;
    $content=$content.$_
}
my $config = XMLin($content, KeyAttr => { server => 'name' }, ForceArray => [ 'server', 'address' ]);

use Data::Dumper;

 
print Dumper($config);

__DATA__
<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>


$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/'
        };