Select Code to Download

#!/usr/bin/perl -w
#
...
        }
    }
}

for( my $RightNode = $Node->right; 
    (defined $RightNode) && 
...
    $RightNode = $RightNode->right)
{
}

my @NodesOnRight = $Node->right; 
my $NumNodesOnTheRight = @NodesOnRight;
...
print "The node to the right of " . $Node->as_HTML . "is [" . $RightNo
+de1 . "]";
print "[" . $RightNode1->as_HTML . "]";
print "\n";

$NumNodesOnTheRight = 51
 
...
]
Can't call method "as_HTML" without a package or object reference at T
+raverseTree.pl line 75.

my $RightNode = $Node->right;
my $NextRightNode = $RightNode->right;