#!/usr/bin/perl
use XML::Simple qw/XMLin/;
use XML::Simple;
use Data::Dumper qw/Dumper/;
use File::Basename qw/dirname basename fileparse/;
use IPC::Open2 qw/open2/;
use Getopt::Long qw/GetOptions/;

my $config = XMLin('./appsimage_EBSB4.xml');
print Dumper($config);


##</code><code>##

cat ./appsimage_EBSB4.xml

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE clone[
<!ENTITY envPageConfig SYSTEM "./envPageConfig.xml">
]>
<clone-config>
"\&envPageConfig";
</clone-config>
--------------------
cat ./envPageConfig.xml
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE clone[
<!ENTITY envPageConfig SYSTEM "./envPageConfig.xml">
]>
<clone-config>
"&envPageConfig";
</clone-config>
ohpr434:EBSB11:/home/oracle/test$cat envPageConfig.xml
    <comt4>
        <bolinfpwd>welcome</bolinfpwd>
    </comt4>

##</code><code>##

$VAR1 = {
          'comt4' => [
                     {
                       'bolinfpwd' => 'welcome'
                     },
                     {
                       'bolinfpwd' => 'welcome'
                     },
                     {
                       'bolinfpwd' => 'welcome'
                     }
                   ]
        };