Select Code to Download

use warnings;
use strict;
...
}

$newdom->toFile($outfile, 1);

<?xml version="1.0" encoding="UTF-8"?>
<testsuites>
...
    <testcase name="test2" />
  </testsuite>
</testsuites>

<?xml version="1.0" encoding="UTF-8"?>
<testsuites>
...
    <testcase name="test6"/>
  </testsuite>
</testsuites>