Select Code to Download

sub FIRSTNODE
{
    my ($root_node) = @_;
...

     return $node;
}

sub FIRSTKEY
{
     my $node = FIRSTNODE($root_node);
...

     return $node && $node->{key};
}