Select Code to Download

use XML::Bare;
use Data::Dumper;
...

local $Data::Dumper::Indent = 1;
print(Dumper($root));

$VAR1 = {
  '_z' => 0,
...
',
  '_pos' => 0
};