Select Code to Download

my @columns = qw(parentNodeId nodeId level canode label);

...
my $parser = XML::Rules->new( rules => []);

print $parser->ToXML(section => $root, 0, '  ');

my @columns = qw(parentNodeId nodeId level canode label);

...
1,3,1,bar,barrar
4,7,3,zzz,zzzzz
0,1,0,blah,bloh