I'm running on some hazy memory here, but I believe you can use TAP::Harness directly to give you the TAP::Parser::Aggregator object. You could then iterate through that, outputting the XML directly with one of the many XML solutions kicking around. That might be more work than you were looking for, but it's an option.