Select Code to Download

#!/usr/bin/perl
use strict;
...
                                      'parent' => undef
                                    }, 'Node' )
               }, 'Node' );

sub new {
    my $class = shift;
...
    bless $self, $class;
    return $self;
}