Select Code to Download

my $root = {};
my $node = $root;
...

use Data::Dumper;
print Dumper($root);

$VAR1 = {
          '_children' => [
...
                           }
                         ]
        };