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>