use XML::Simple;
local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
$xml->XMLin($file,ForceArray => ['map'], KeyAttr =>{},);
##</code><code>##

package ETTX;
use strict;
use XML::Simple;
local $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
use XML::SemanticDiff;

sub new(){#scalar file name
    my $class = shift;
	my $self = 
		{
			ettxFile => '',
			ettx => {},
		};
    bless $self, $class;
	load($self,shift) if @_ ==1;
    return $self;
};

sub load(){#scalar file name
	my ($self, $ettxFile) = @_;
	print "loading $ettxFile";
	open(my $fh, '<', $ettxFile);
	binmode($fh);
	my $xml = XML::Simple->new();
	$self->{ettx} = 
		$xml->XMLin($fh, 
			ForceArray => ['map'], KeyAttr => {}, 
		)
	->{table};
	$self->{ettxFile} = $ettxFile;
	# print Dumper($self);
	1;
}

##</code><code>##

use lib 'C:\Texts\Programs';    #wherever ETTX.pm is
use ETTX;
my $ettxFile = 'someXMLfile.ettx';
my $ettx->load($ettxFile);

##</code><code>##

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<ettx ver="2">
  <table id="{4fa6cd7a-f7b6-416d-8f59-3acc0eab9bdb}" name="TestFile">
    <level type="V">
      <map sync="Title" src="someText"/>
      <map sync="Title Page" src="someText"/>
    </level>
  </table>
</ettx>