Perl Module to generate and test check digits