use warnings;
use strict;
#use 5.24.1;
use Data::Dumper qw(Dumper);
use XML::Mini::Document;

$Data::Dumper::Terse=1;

my $xml_input;
{
    local $/;
    $xml_input = <DATA>;
}
print "1********************************************\n";
print $xml_input;

my $xml_object =XML::Mini::Document->new();
$xml_object->parse($xml_input);
#goto END;
my $hash_ref = $xml_object->toHash();
print "2********************************************\n";
print Dumper($hash_ref);

my $dumped_hash=Dumper($hash_ref);

my $evalled_hashdata=eval($dumped_hash);

print "3********************************************\n";
print Dumper($evalled_hashdata);

END:
#exit;

##   This will cause ->parse() to hang.
##    <BitmapPath>%TEST_ROOT%\bitmaps\</BitmapPath>

__DATA__
<?xml version="1.0" encoding="utf-8"?>
<NetConfig>
  <UseServerTimer>false</UseServerTimer>
  <PhoneNumberRegex />
  <InitializeStatistics_Logging>false</InitializeStatistics_Logging>
  <InitializeStatistics_Logging>false_test</InitializeStatistics_Logging>
  <InitializeStatistics_Logging>false test</InitializeStatistics_Logging>
  <InitializeStatistics_Logging>false test </InitializeStatistics_Logging>
  <ViewerConfigs>
    <TileNamePatern>{0}\{1}\{2}.tile</TileNamePatern>
    <ViewerConfigWrap>
      <File>viewerConfigx.xml</File>
      <Name>FI_RT</Name>
    </ViewerConfigWrap>
  </ViewerConfigs>
</NetConfig>