count the random numb.
Merge branch 'master' of github.com:kingkongmok/perl