Select Code to Download

$tdata->{'TABLE-CAPTION'} = {'ID' => $_id, 'LONG-NAME' => {content => 
+'Test results'}};

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

P>Testresults:</P><TABLE>
  <TABLE-CAPTION ID="ID42.401123046875">
...
      <ROW>
        <ENTRY COLNAME="test-id">
...