Select Code to Download

    my ($subid, @children);
    while (($subid) = $children->fetchrow_array) {
...
    for $subid (@children) {
        walktree ($subid);
    }

    while(my ($subid) = $children->fetchrow_array) {
        walktree($subid);
    }