Select Code to Download

use XML::Simple;

...
print "Passed: $Passed\n";
print "Warnings: $Warnings\n";
print "Failed: $Failed\n";

---
dut:
...
    - id: 003.001
      result: Warnings
      ts: {}

$VAR1 = [
    {
...
        }
    }
];