Select Code to Download

my $cats_sth = $dbh->prepare(<<"EndOfSQL");
  SELECT category_id, name, parent
  FROM   $sql{categories}
...
        print_category($cats->[$child_id], $cats, "$indent  ");
    }
}

[
   [ name, parent id, [ child ids ] ],
   [ name, parent id, [ child ids ] ],
   ...
]