Select Code to Download

#!/usr/local/bin/perl

...
         },
    4 => { name => 'something else' }
  );

show(\%category_hash, 0);

...
      if exists $hash->{$_}{children};
  }
}