Select Code to Download

#!/usr/bin/env perl

...
    push @$cats, $family->{$parent}[CAT_NAME];
    recurse_family($family, $cats, $family->{$parent}[CHILD_ID]);
}

Category1,Category2,Category3,Category4