Asmens::Kodas - Lithuanian personal (passport) number checking

     use Asmens::Kodas qw/tikras/;
     print tikras("38208080214") ? "tinka" : "netinka";

This module provides a subroutine that runs a few checks which ensure that Lithuanian personal number (asmens kodas) has a correct checksum and has sane fields.

This subroutine does the actual checking. It returns 1 if the argument can possibly be a correct Lithuanian personal number. Otherwise it returns 0.

Petras Kudaras <moxliukas@delfi.lt>