Select Code to Download

#! /usr/bin/perl

...
cat2
cat3
    cat3,sub1

id : 1, name : cat1, parent 0
id : 2, name : cat1,sub1, parent 1
...
id : 6, name : cat2, parent 0
id : 7, name : cat3, parent 0
id : 8, name : cat3,sub1, parent 7