Select Code to Download

sub getCategories {
    my ($dbh)=@_;
...
    
    return (\@roots,\%nodes);    
}

sub traverse {
  my ($node,$depth)=@_;
...
}
my ($r,$n)=getCategories($dbh);
traverse($_) for sort { $a->{cid} <=> $b->{cid} } @$r;