Select Code to Download

#!/usr/bin/perl

...
    $ref ? ( find( $ref->{cat_parent_id} ), $ref->{cat_name} ) : ()
    } @_;
  }

#!/usr/bin/perl

...
my $answer = join ',', @order;
print "$answer\n";
$parents and die "loop in parents at\n$parents";