##
A
B
C
D
E
F
G
H
####
use XML::Simple;
use strict;
my $xmlParser = new XML::Simple( RootName => 'TABLE',
KeepRoot=>1,
ValueAttr=>{
'TABLE-CAPTION' => 'LONG-NAME',
});
my $data = $xmlParser->XMLin("testtable.xml");
my $xml = $xmlParser->XMLout($data);
print "stop";