Help for this page

Select Code to Download

Select or download this

sub printcats {
   my ($class, $tree) = @_;
...
                   $printsub
                  );
}