Asmens::Kodas
(
cpan
) - Tikrina ar geras lietuviškas asmens kodas.
use Asmens::Kodas qw/tikras/;
print tikras("38208080214") ? "tinka" : "netinka";
Asmens kodas 38208080214 neatitinka standarto.