Select Code to Download

    # the first element of $path is always a key in the DB_File
    my ($root, $tip) = (shift(@path), pop(@path));
...
    
    $nodule->{$tip} = $content;
    print Dumper($old);

$VAR1 = {foo =>
        {bar =>
            {baz => 'some arbitrary data'}
        }
    };