sub rec_delete {
    my $id=shift;
    foreach my $id (select id where parent=$id) {
       rec_delete($id);
    }
    delete($id);
}