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};