update code add debug mode.
Merge branch 'master' of https://github.com/soarpenguin/perl-scripts