tf8::SWASHNEW(/opt/acs/perl/lib/perl5/5.8.0/utf8_heavy.pl:167):
167:                my $val = hex(defined $3 ? $3 : "");

##</code><code>##

DESTROY created new reference to dead object 'utf8' during global destruction.

##</code><code>##

use strict;
use XML::Simple;

my $data;
{
   local $/;
   $data = <DATA>;
}
   
my $config = XMLin($data);
print "config read\n";

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