use strict;
use warnings;
use XML::LibXML;


my $file = qq(appsimage_EBSB4.xml);

open my $fh, '<', $file;

binmode $fh;

my $doc = XML::LibXML->load_xml(IO => $fh);

close $fh;

print $doc->toString();

__END__

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE clone [
<!ENTITY envPageConfig SYSTEM "./envPageConfig.xml">
]>
<clone-config>

    <comt4>
        <bolinfpwd>welcome</bolinfpwd>
    </comt4>

</clone-config>


##</code><code>##

use strict;
use warnings;
use XML::Twig;
use Data::Dumper;
 
my $file = qq(appsimage_EBSB4.xml);

my $hash_ref = XML::Twig->new()->parsefile( $file )->simplify();

print Dumper($hash_ref);

print $hash_ref->{comt4}->{bolinfpwd};