Select Code to Download

use strict;
use warnings;
...


print_tree(\%categories);

level1
...level1-1
...
...level1-3
level2
...level2-1