some thing from sina blog
Merge github.com:sxw2k/Perl_wiz