Select Code to Download

#!/usr/bin/perl
use XML::Simple qw/XMLin/;
...
my $config = XMLin('./appsimage_EBSB4.xml');
print Dumper($config);

cat ./appsimage_EBSB4.xml

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE clone[
...
    <comt4>
        <bolinfpwd>welcome</bolinfpwd>
    </comt4>

$VAR1 = {
          'comt4' => [
...
                     }
                   ]
        };