$tdata->{'TABLE-CAPTION'} = {'ID' => $_id, 'LONG-NAME' => {content => 'Test results'}};
##</code><code>##

	my $xmlParser  = new XML::Simple(
	RootName => 'TABLE',
	KeepRoot=>1,
	ValueAttr=>{
		'TABLE-CAPTION' => 'ID',
		'ContentKey' => 'content',
	}

##</code><code>##

P>Testresults:</P><TABLE>
  <TABLE-CAPTION ID="ID42.401123046875">
    <LONG-NAME>Testresults</LONG-NAME>
  </TABLE-CAPTION>
  <TGROUP COLS="4">
    <COLSPEC COLNAME="test-id" COLNUM="0" COLWIDTH="1.00*" />
    <COLSPEC COLNAME="status" COLNUM="1" COLWIDTH="1.00*" />
    <COLSPEC COLNAME="test-spec" COLNUM="2" COLWIDTH="1.00*" />
    <COLSPEC COLNAME="requirement-ids" COLNUM="3" COLWIDTH="1.00*" />
    <TBODY>
      <ROW>
        <ENTRY COLNAME="test-id">
...