sub traverse {
  my ($node,$depth)=@_;
  $depth||=0;
  print " " x $depth,$node->{cid}," ",$node->{name},"\n";
  foreach my $id ( sort {$a <=> $b} keys %{$node->{_kids}||{}} ) {
    traverse($node->{_kids}{$id},$depth+1);
  }
}
my ($r,$n)=getCategories($dbh);
traverse($_) for sort { $a->{cid} <=> $b->{cid} } @$r;