Help for this page

Select Code to Download

Select or download this

sub print_tree {
   my ($tree, $depth) = @_;
...
}

print_tree(\%categories);