##
#!/usr/bin/perl -l
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml = XML::Simple->new();
my $fileName = 'C:\Users\nate\Desktop\testXML.txt';
my $tree =
{
table => {}
};
$tree->{table} =
$xml->XMLin($fileName,
ForceArray => ['map'], KeyAttr => []
)
->{table};
print Dumper($tree->{table});