my @NodesOnRight = $Node->right; 
my $NumNodesOnTheRight = @NodesOnRight;
print "\$NumNodesOnTheRight = $NumNodesOnTheRight\n @NodesOnRight\n";

my $RightNode1 = $Node->right; 
print "The node to the right of " . $Node->as_HTML . "is [" . $RightNode1 . "]";
print "[" . $RightNode1->as_HTML . "]";
print "\n";