Select Code to Download

while (my $line = <>) {
  chomp $line;
...
  
  print build_subtree_oneline($tree,1), $/;
}

$VAR1 = undef;
$VAR1 = {
          'children' => []
        };