Select Code to Download

Table: Categories

id         (primary key)
parent_id  (foreign key on the id column, set to NULL for the upper-mo
+st node)
name       text

my $dbh = DBI::connect(@connect_values_here);
get_categories_at( undef );
...
    get_categories_at( $hash_ref->{$id}{parent_id} );
  }
}