Improve perl template.
Fix the debug message.
Add token-table_diff script