Select Code to Download

#!/usr/bin/perl

...
print Dumper(\@nodes);
print Dumper($nodes[0]->{children});
print Dumper($nodes[0]->{self});

$VAR1 = bless( {
                 'max_order' => 6,
...
          }
        ];
$VAR1 = undef;

#!/usr/bin/perl

...

my $frob = $nodes[0]->{children}[0]->{content};
print "Frob: $frob\n";