perl Tree-DAG_Node