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>
