Select Code to Download

sub _create_node
  {
...
    no strict;
    @{$node}{qw/parent info/} = ($parent,$node_info);
  }

sub go_through
  {
...
    }
    return \@info_nodes;
  }