reluctant_techie,
Assuming you have a get_parent() that works, it should be as simple as:

sub get_path_from_root {
    my ($node) = @_;
    my @path;
    while (my $parent = get_parent($node)) {
        unshift @path, $parent;
        $node = $parent;
    }
    return join '/', @path;
}
[download]