增加 Pro Perl Debugging 调试用的代码 charcount see #1