File Coverage

blib/lib/Metai/Kalendorius.pm

Criterion	Covered	Total	%
statement	43	453	9.4
branch	32	832	3.8
condition	35	78	44.8
subroutine	8	8	100.0
pod	5	7	71.4
total	123	1378	8.9

 ################################################
#						#
#	Copyleft by algirdas @ perl.lt		#
#						#
 ################################################

package Metai::Kalendorius;
use strict;

our $VERSION = 0.07;

=head1 NAME


Metai::Kalendorius - Lithuanian calendar.


=head1 SYNOPSIS


	use Metai::Kalendorius;
	use POSIX qw(strftime);

	my $data = strftime "%Y.%m.%d", localtime;

	# Lithuanian day-names
	print Metai::Kalendorius->vardai($data,'utf-8');
	# Lithuanian zodiac name
	print Metai::Kalendorius->zodiakas($data,'www');
	# Lithuanian time of year name
	print Metai::Kalendorius->metu_laikas($data,'utf-8');
	# Lithuanian month name
	print Metai::Kalendorius->menuo($data,'www');
	# Lithuanian day name
	print Metai::Kalendorius->diena($data,'www');


=head1 DESCRIPTION


This module provides subroutines that return Lithuanian day-names/zodiac name/time of year name/month name/day name, based on date.
Each of those can be returned in utf-8 (default) encoding and "www" type (f.e. Vaišvilas).


=head2 vardai


Lithuanian day-names:			Metai::Kalendorius->vardai('2006.12.22');


=head2 zodiakas


Lithuanian zodiac name:			Metai::Kalendorius->zodiakas('2006.12.22');


=head2 metu_laikas


Lithuanian time of year name:		Metai::Kalendorius->metu_laikas('2006.12.22');


=head2 menuo


Lithuanian month name:			Metai::Kalendorius->menuo('2006.12.22');


=head2 diena


Lithuanian day name:			Metai::Kalendorius->diena('2006.12.22');


=head1 AUTHOR


Algirdas R. [e-mail]


=cut


sub vardai {
 my ($metai,$menuo,$diena,$koduote) = tikrinimas($_[1],$_[2]);

 my $vardai;
 if ($menuo == 1) {
  if    ($diena == 1)	{ $vardai = 'Mečislovas,Arvaidas,Arvaidė,Eufrozija,Mečys,Eufrozina'; }
  elsif ($diena == 2)	{ $vardai = 'Bazilijus,Grigalius,Mażvydas,Gailutė,Fulgentas,Stefanija'; }
  elsif ($diena == 3)	{ $vardai = 'Genovaitė,Viltautas,Vyda,Vida'; }
  elsif ($diena == 4)	{ $vardai = 'Arimantas,Arimantė,Titas,Benediktas,Arminas,Benas,Arminė,Andżelika,Anżelika'; }
  elsif ($diena == 5)	{ $vardai = 'Simonas,Vytautas,Vytautė,Telesforas,Gaudentas,Simas'; }
  elsif ($diena == 6)	{ $vardai = 'Baltazaras,Kasparas,Merkelis,Arūnas,Arūnė,Melchioras'; }
  elsif ($diena == 7)	{ $vardai = 'Liucijus,Raimundas,Valentinas,Rūtenis,Raudvilė'; }
  elsif ($diena == 8)	{ $vardai = 'Apolinaras,Severinas,Teofilius,Vilintas,Gintė,Teofilis'; }
  elsif ($diena == 9)	{ $vardai = 'Bazilė,Julijonas,Algis,Gabija,Marcijona'; }
  elsif ($diena == 10)	{ $vardai = 'Agatonas,Vilhelmas,Ginvilas,Ginvilė,Vilius'; }
  elsif ($diena == 11)	{ $vardai = 'Marcijonas,Stefanija,Audrius,Vilnė,Palemonas'; }
  elsif ($diena == 12)	{ $vardai = 'Arkadijus,Cezarija,Cezarijus,Vaigedas,Lingailė,Ernestas,Cezarė,Cezaris'; }
  elsif ($diena == 13)	{ $vardai = 'Veronika,Dargaudas,Gilvydė,Iveta,Raimonda,Vera,Hiliaras'; }
  elsif ($diena == 14)	{ $vardai = 'Feliksas,Teodozijus,Auksė,Hilarijus,Laimis'; }
  elsif ($diena == 15)	{ $vardai = 'Paulius,Skirgaila,Snieguolė,Meda,Povilas'; }
  elsif ($diena == 16)	{ $vardai = 'Marcelis,Norgailas,Norgailė'; }
  elsif ($diena == 17)	{ $vardai = 'Antanas,Dovainis,Vilda,Leonilė'; }
  elsif ($diena == 18)	{ $vardai = 'Gedgaudas,Jogailė,Liberta,Jolita'; }
  elsif ($diena == 19)	{ $vardai = 'Kanutas,Marijus,Morta,Raivedys,Gedvilė,Marius'; }
  elsif ($diena == 20)	{ $vardai = 'Fabijonas,Sebastijonas,Daugvydas,Nomeda'; }
  elsif ($diena == 21)	{ $vardai = 'Agnietė,Galiginas,Garsė,Ineza,Inesa,Ineta,Ina'; }
  elsif ($diena == 22)	{ $vardai = 'Anastazas,Gaudentas,Vincentas,Aušrius,Skaistė,Dżiugas,Vincas'; }
  elsif ($diena == 23)	{ $vardai = 'Gailigedas,Gunda,Raimundas'; }
  elsif ($diena == 24)	{ $vardai = 'Pranciškus,Vilgaudas,Gaivilė,Artūras,Felicija'; }
  elsif ($diena == 25)	{ $vardai = 'Viltenis,Žiedė,Povilas,Paulius'; }
  elsif ($diena == 26)	{ $vardai = 'Timotiejus,Titas,Rimantas,Eigilė,Justas,Paulė,Rimas'; }
  elsif ($diena == 27)	{ $vardai = 'Angelė,Jogundas,Jogundė,Natalis,Ilona,Anelė'; }
  elsif ($diena == 28)	{ $vardai = 'Tomas,Gedautas,Nijolė,Leonidas,Manfredas'; }
  elsif ($diena == 29)	{ $vardai = 'Girkantas,Žibutė,Valerijus,Aivaras'; }
  elsif ($diena == 30)	{ $vardai = 'Hiacinta,Jacinta,Martyna,Milgaudas,Banguolė,Ipolitas,Liudvika,Martė,Liuda'; }
  elsif ($diena == 31)	{ $vardai = 'Liudvika,Liuda,Marcelė,Skirmantas,Budvilė,Luiza,Skirmantė'; }
 }
 elsif ($menuo == 2) {
  if    ($diena == 1)	{ $vardai = 'Pijonijus,Gytautas,Eidvilė,Ignotas,Brigita'; }
  elsif ($diena == 2)	{ $vardai = 'Rytys,Vandenė,Valdemaras,Kandidas,Rytis,Valdonė,Valdas,Orintas,Orinta'; }
  elsif ($diena == 3)	{ $vardai = 'Oskaras,Blażiejus,Radvilas,Radvilė,Blażys,Asta'; }
  elsif ($diena == 4)	{ $vardai = 'Andriejus,Vydmantas,Arvilė,Joana,Andrius,Vidmantas'; }
  elsif ($diena == 5)	{ $vardai = 'Agota,Gaudvinas,Birutė'; }
  elsif ($diena == 6)	{ $vardai = 'Darata,Paulius,Alkis,Žyvilė,Titas,Povilas,Živilė,Urtė,Oksana'; }
  elsif ($diena == 7)	{ $vardai = 'Ričardas,Vildaugas,Jomantė,Romualdas,Vilgirdas,Vilgirdė'; }
  elsif ($diena == 8)	{ $vardai = 'Aldona,Jeronimas,Dromantas,Daugvilė,Saliamonas,Honorata,Salys'; }
  elsif ($diena == 9)	{ $vardai = 'Apolonija,Marijus,Joviltas,Algė,Erikas,Polė,Erika'; }
  elsif ($diena == 10)	{ $vardai = 'Skolastika,Girvydas,Vydgailė,Gabrielius,Elvyra,Skolė'; }
  elsif ($diena == 11)	{ $vardai = 'Teodora,Algirdas,Algirdė,Adolfas,Liucijus,Evelina'; }
  elsif ($diena == 12)	{ $vardai = 'Benediktas,Reginaldas,Mantminas,Deimantė,Eulalija'; }
  elsif ($diena == 13)	{ $vardai = 'Kotryna,Algaudas,Ugnė,Benignas'; }
  elsif ($diena == 14)	{ $vardai = 'Kirilas,Valentinas,Saulius,Saulė,Liliana,Lijana'; }
  elsif ($diena == 15)	{ $vardai = 'Faustinas,Jordanas,Zygfridas,Girdenis,Girdenė,Jovita,Jurgina,Jurgita,Vytis'; }
  elsif ($diena == 16)	{ $vardai = 'Julijona,Julijonas,Tautvydė'; }
  elsif ($diena == 17)	{ $vardai = 'Aleksas,Vaišvilas,Viltė,Donatas,Donata'; }
  elsif ($diena == 18)	{ $vardai = 'Bernadeta,Simeonas,Lengvenis,Gendrė,Simas'; }
  elsif ($diena == 19)	{ $vardai = 'Konradas,Šarūnas,Nida,Zuzana'; }
  elsif ($diena == 20)	{ $vardai = 'Leonas,Visgintas,Eitvydė'; }
  elsif ($diena == 21)	{ $vardai = 'Eleonora,Kęstutis,Žemyna,Feliksas'; }
  elsif ($diena == 22)	{ $vardai = 'Darvydas,Gintautė,Elvinas,Margarita'; }
  elsif ($diena == 23)	{ $vardai = 'Gantautas,Butvilė,Severinas,Romana,Roma'; }
  elsif ($diena == 24)	{ $vardai = 'Demetrija,Gedmantas,Goda,Motiejus,Matas'; }
  elsif ($diena == 25)	{ $vardai = 'Viktoras,Margiris,Rasa,Regimantas'; }
  elsif ($diena == 26)	{ $vardai = 'Aleksandras,Jogintas,Aurimė,Izabelė,Sandra'; }
  elsif ($diena == 27)	{ $vardai = 'Gabrielius,Ginvilas,Skirmantė,Fortunatas,Livija,Mandravas,Mandravė'; }
  elsif ($diena == 28)	{ $vardai = 'Osvaldas,Romanas,Vilgardas,Žygimantė,Romas'; }
  elsif ($diena == 29)	{ $vardai = 'Gustis,Tolvaldas'; }
 }
 elsif ($menuo == 3) {
  if    ($diena == 1)	{ $vardai = 'Albinas,Tulgaudas,Rusnė,Antanina,Antanė'; }
  elsif ($diena == 2)	{ $vardai = 'Simplicijus,Eitautas,Dautara,Marcelinas,Elena'; }
  elsif ($diena == 3)	{ $vardai = 'Kunigunda,Uosis,Tulė,Nonita'; }
  elsif ($diena == 4)	{ $vardai = 'Kazimieras,Daugvydas,Daina,Vaclava,Kazys,Vacė'; }
  elsif ($diena == 5)	{ $vardai = 'Austra,Aurora,Liucijus,Vydotas,Giedrė,Klemensas,Virgilijus'; }
  elsif ($diena == 6)	{ $vardai = 'Gerasimas,Norvilas,Raminta,Rożė'; }
  elsif ($diena == 7)	{ $vardai = 'Felicita,Rimtautas,Galmantė,Tomas,Laima'; }
  elsif ($diena == 8)	{ $vardai = 'Vydminas,Gaudvilė,Beata'; }
  elsif ($diena == 9)	{ $vardai = 'Dominykas,Domas,Pranciška,Žygintas,Visgailė,Pranė'; }
  elsif ($diena == 10)	{ $vardai = 'Silvija,Naubartas,Butgailė,Emilis,Geraldas'; }
  elsif ($diena == 11)	{ $vardai = 'Konstantinas,Gedimtas,Vijolė,Kostas'; }
  elsif ($diena == 12)	{ $vardai = 'Teofanas,Galvirdas,Darmantė'; }
  elsif ($diena == 13)	{ $vardai = 'Paulina,Liutauras,Vaidilė,Kristina,Teodora'; }
  elsif ($diena == 14)	{ $vardai = 'Matilda,Darmantas,Karigailė'; }
  elsif ($diena == 15)	{ $vardai = 'Klemensas,Lukrecija,Tautas,Tautgintė,Lionginas,Tautginė,Raigardas'; }
  elsif ($diena == 16)	{ $vardai = 'Julijonas,Vaidotas,Norvaldė,Henrika,Norvilė'; }
  elsif ($diena == 17)	{ $vardai = 'Gerda,Patrikas,Gentvila,Varūna,Gertrūda,Gendvilas,Vita'; }
  elsif ($diena == 18)	{ $vardai = 'Kirilas,Eimutis,Eimutė,Anzelmas,Sibilė'; }
  elsif ($diena == 19)	{ $vardai = 'Juozapas,Vilys,Vilė,Juozas'; }
  elsif ($diena == 20)	{ $vardai = 'Žygimantas,Tautvilė,Filomenas,Irmgarda,Irma,Irmantas'; }
  elsif ($diena == 21)	{ $vardai = 'Mikalojus,Nortautas,Lingailė,Benediktas,Reda'; }
  elsif ($diena == 22)	{ $vardai = 'Benvenutas,Kotryna,Gedgaudas,Gedgaudė'; }
  elsif ($diena == 23)	{ $vardai = 'Galgintas,Vismantė,Alfonsas,Akvilė,Ūla'; }
  elsif ($diena == 24)	{ $vardai = 'Liucija,Daumantas,Ganvilė,Gabrielius,Donardas'; }
  elsif ($diena == 25)	{ $vardai = 'Normantas,Normantė'; }
  elsif ($diena == 26)	{ $vardai = 'Feliksas,Liudgaras,Arbutas,Vydmantė,Emanuelis,Teklė,Laimis'; }
  elsif ($diena == 27)	{ $vardai = 'Nikodemas,Rupertas,Alkmenas,Rūta,Aleksandras,Lidija'; }
  elsif ($diena == 28)	{ $vardai = 'Filemonas,Sikstas,Rimkantas,Girmantė,Odeta'; }
  elsif ($diena == 29)	{ $vardai = 'Narcizas,Almantė,Bertoldas,Manvydas'; }
  elsif ($diena == 30)	{ $vardai = 'Gvidonas,Virmantas,Meda,Ferdinandas'; }
  elsif ($diena == 31)	{ $vardai = 'Benjaminas,Ginas,Gina,Kornelija'; }
 }
 elsif ($menuo == 4) {
  if    ($diena == 1)	{ $vardai = 'Hugonas,Teodora,Teodoras,Rimgaudas,Dainora'; }
  elsif ($diena == 2)	{ $vardai = 'Pranciškus,Jostautas,Jostautė,Pranas,Elona'; }
  elsif ($diena == 3)	{ $vardai = 'Irena,Ričardas,Vytenis,Rimtautė,Kristijonas'; }
  elsif ($diena == 4)	{ $vardai = 'Izidorius,Algaudas,Eglė,Ambraziejus'; }
  elsif ($diena == 5)	{ $vardai = 'Krescencija,Vincentas,Rimvydas,Žygintė,Zenonas,Irena,Zenius'; }
  elsif ($diena == 6)	{ $vardai = 'Celestinas,Daugirutis,Žintautė,Gerardas'; }
  elsif ($diena == 7)	{ $vardai = 'Minvydas,Kantautė,Hermanas,Donata'; }
  elsif ($diena == 8)	{ $vardai = 'Valteris,Girtautas,Skirgailė,Dionizas,Julija,Alma'; }
  elsif ($diena == 9)	{ $vardai = 'Paladijus,Aurimas,Dalia,Kleopas,Gitana,Gitanas'; }
  elsif ($diena == 10)	{ $vardai = 'Apolonijus,Mintautas,Agna,Margarita'; }
  elsif ($diena == 11)	{ $vardai = 'Stanislovas,Vykintas,Daugailė,Leonas'; }
  elsif ($diena == 12)	{ $vardai = 'Julijus,Zenonas,Galmantas,Jūratė,Damijonas,Julius'; }
  elsif ($diena == 13)	{ $vardai = 'Martynas,Mingaudas,Algaudė,Ida'; }
  elsif ($diena == 14)	{ $vardai = 'Liudvika,Liuda,Valerijonas,Vaišvydė,Visvaldas,Justinas,Luiza'; }
  elsif ($diena == 15)	{ $vardai = 'Gema,Vilnius,Vaidotė,Modestas,Anastazijus,Liudvina'; }
  elsif ($diena == 16)	{ $vardai = 'Benediktas,Giedrius,Algedė,Kalikstas'; }
  elsif ($diena == 17)	{ $vardai = 'Anicetas,Dravenis,Skaidra,Robertas'; }
  elsif ($diena == 18)	{ $vardai = 'Apolonijus,Eitvilas,Girmantė'; }
  elsif ($diena == 19)	{ $vardai = 'Leonas,Leontina,Eirimas,Aistė,Simonas,Laisvūnas,Laisvūnė'; }
  elsif ($diena == 20)	{ $vardai = 'Gostautas,Eisvydė,Marcijonas,Agnė'; }
  elsif ($diena == 21)	{ $vardai = 'Anzelmas,Konradas,Milgedas,Skalvė,Amalija'; }
  elsif ($diena == 22)	{ $vardai = 'Kajus,Visgailas,Norvaidė,Leonidas,Leonas,Vadimas'; }
  elsif ($diena == 23)	{ $vardai = 'Adalbertas,Jurgis,Daugaudas,Vygailė,Jurgita,Jurga'; }
  elsif ($diena == 24)	{ $vardai = 'Fidelis,Kantrimas,Grażvyda,Ervina'; }
  elsif ($diena == 25)	{ $vardai = 'Morkus,Tolmantas,Žadmantė'; }
  elsif ($diena == 26)	{ $vardai = 'Gailenis,Dargailė,Klaudijus,Vilūnė'; }
  elsif ($diena == 27)	{ $vardai = 'Anastazas,Zita,Gotautas,Aušra,Žydrė,Edilija'; }
  elsif ($diena == 28)	{ $vardai = 'Prudencijus,Valerija,Vygantas,Rimgailė,Vitalius'; }
  elsif ($diena == 29)	{ $vardai = 'Kotryna,Tarmantas,Indrė,Augustinas,Rita'; }
  elsif ($diena == 30)	{ $vardai = 'Marijonas,Pijus,Virbutas,Venta,Sofija'; }
 }
 elsif ($menuo == 5) {
  if    ($diena == 1)	{ $vardai = 'Juozapas,Zigmantas,Žilvinas,Vydmantė,Anelė,Zigmas'; }
  elsif ($diena == 2)	{ $vardai = 'Atanazas,Eidmantas,Meilė'; }
  elsif ($diena == 3)	{ $vardai = 'Aleksandras,Jokūbas,Juvenalis,Pilypas,Arvystas,Kantvydė'; }
  elsif ($diena == 4)	{ $vardai = 'Antanina,Florijonas,Dargailas,Mintautė,Monika,Vitalija'; }
  elsif ($diena == 5)	{ $vardai = 'Irena,Mykolas,Barvydas,Neris,Pijus,Angelas,Anielius'; }
  elsif ($diena == 6)	{ $vardai = 'Judita,Minvydas,Eidmantė,Liucijus,Benedikta,Benė'; }
  elsif ($diena == 7)	{ $vardai = 'Domicelė,Domicijonas,Butautas,Rimutė,Danutė,Stanislovas'; }
  elsif ($diena == 8)	{ $vardai = 'Stanislovas,Viktoras,Dżiugas,Audrė,Mykolas,Stasys'; }
  elsif ($diena == 9)	{ $vardai = 'Beatas,Edita,Mingailas,Austėja,Grigalius'; }
  elsif ($diena == 10)	{ $vardai = 'Antoninas,Putinas,Sangailė,Viktorina'; }
  elsif ($diena == 11)	{ $vardai = 'Mamertas,Skirgaudas,Miglė,Pilypas'; }
  elsif ($diena == 12)	{ $vardai = 'Achilas,Nerėjas,Vaidutis,Vilgailė,Nerėjas,Nerys,Nerijus'; }
  elsif ($diena == 13)	{ $vardai = 'Tautmilas,Alvydė,Milda'; }
  elsif ($diena == 14)	{ $vardai = 'Motiejus,Gintaras,Vilda,Bonifacas,Gintarė'; }
  elsif ($diena == 15)	{ $vardai = 'Izidorius,Sofija,Algedas,Jaunutė,Zofija'; }
  elsif ($diena == 16)	{ $vardai = 'Andriejus,Ubaldas,Vaidmantas,Bitė,Andrius'; }
  elsif ($diena == 17)	{ $vardai = 'Paskalis,Virkantas,Gailė,Bazilė'; }
  elsif ($diena == 18)	{ $vardai = 'Erikas,Erdvilas,Rytė,Julita,Venancijus'; }
  elsif ($diena == 19)	{ $vardai = 'Gilvinas,Tauras,Celestinas'; }
  elsif ($diena == 20)	{ $vardai = 'Bernardinas,Eidvilas,Vygintė,Akvilas,Alfreda'; }
  elsif ($diena == 21)	{ $vardai = 'Teobaldas,Vaidivutis,Vydmina,Valentas,Aldas,Vaidevutis'; }
  elsif ($diena == 22)	{ $vardai = 'Elena,Julija,Rita,Eimantas,Aldona,Julė'; }
  elsif ($diena == 23)	{ $vardai = 'Gertautas,Tautvydė,Ivona,Žydrūnė,Žydrūnas'; }
  elsif ($diena == 24)	{ $vardai = 'Joana,Žaneta,Vincentas,Vilmantas,Gina,Gerardas,Žana'; }
  elsif ($diena == 25)	{ $vardai = 'Bedas,Magdalena,Almantas,Danutė,Urbonas,Evelina'; }
  elsif ($diena == 26)	{ $vardai = 'Pilypas,Algimantas,Milvydė,Eduardas,Vilhelmina'; }
  elsif ($diena == 27)	{ $vardai = 'Augustinas,Genadijus,Virgaudas,Žymantė,Brunonas,Leonora'; }
  elsif ($diena == 28)	{ $vardai = 'Justas,Jogirdas,Rima,Augustinas'; }
  elsif ($diena == 29)	{ $vardai = 'Teodozija,Algedas,Erdvilė,Magdalena,Magdė'; }
  elsif ($diena == 30)	{ $vardai = 'Ferdinandas,Joana,Žaneta,Vyliaudas,Jomilė,Žana'; }
  elsif ($diena == 31)	{ $vardai = 'Petronėlė,Gintautas,Rimvilė,Angelė,Petrė'; }
 }
 elsif ($menuo == 6) {
  if    ($diena == 1)	{ $vardai = 'Justinas,Jogaila,Galindė,Konradas,Juvencijus'; }
  elsif ($diena == 2)	{ $vardai = 'Erazmas,Marcelinas,Ążuolas,Auksė,Eugenijus'; }
  elsif ($diena == 3)	{ $vardai = 'Karolis,Klotilda,Tautkantas,Dovilė'; }
  elsif ($diena == 4)	{ $vardai = 'Pranciškus,Dausprungas,Deimena,Kornelijus,Vincentas,Vincė,Vincenta'; }
  elsif ($diena == 5)	{ $vardai = 'Bonifacas,Vinfridas,Kantautas,Kantvydė,Marcė'; }
  elsif ($diena == 6)	{ $vardai = 'Bogumilas,Klaudijus,Norbertas,Tauras,Mėta,Paulina'; }
  elsif ($diena == 7)	{ $vardai = 'Robertas,Ratautas,Radvydė,Lukrecija,Roberta'; }
  elsif ($diena == 8)	{ $vardai = 'Medardas,Merūnas,Eigintė'; }
  elsif ($diena == 9)	{ $vardai = 'Efremas,Felicijonas,Gintas,Gintė,Felicijus,Vitalija'; }
  elsif ($diena == 10)	{ $vardai = 'Diana,Liutgarda,Pelagija,Galindas,Vingailė,Margarita'; }
  elsif ($diena == 11)	{ $vardai = 'Barnabas,Tvirmantas,Aluona,Flora'; }
  elsif ($diena == 12)	{ $vardai = 'Anupras,Ramūnas,Dovė,Kristijonas,Kristis,Vilma,Kristė'; }
  elsif ($diena == 13)	{ $vardai = 'Antanas,Kunotas,Skalvė,Akvilina'; }
  elsif ($diena == 14)	{ $vardai = 'Rufinas,Valerijus,Labvardas,Almina,Bazilijus,Digna'; }
  elsif ($diena == 15)	{ $vardai = 'Jolanta,Vitas,Tanvilas,Bargailė,Krescencija'; }
  elsif ($diena == 16)	{ $vardai = 'Benas,Julita,Tolminas,Jūra'; }
  elsif ($diena == 17)	{ $vardai = 'Grigalius,Daugantas,Vilmantė,Adolfas,Laura'; }
  elsif ($diena == 18)	{ $vardai = 'Marcelinas,Morkus,Ginbutas,Vaiva,Arnulfas,Marina'; }
  elsif ($diena == 19)	{ $vardai = 'Julijona,Romualdas,Dovilas,Ramunė,Deodatas,Romas'; }
  elsif ($diena == 20)	{ $vardai = 'Florentina,Silverijus,Žadvainas,Žintautė,Nandas'; }
  elsif ($diena == 21)	{ $vardai = 'Aloyzas,Galminas,Vasarė,Alicija'; }
  elsif ($diena == 22)	{ $vardai = 'Paulinas,Tomas,Kaributas,Laima,Inocentas'; }
  elsif ($diena == 23)	{ $vardai = 'Agripina,Arvydas,Vaida,Zenonas,Vanda,Vaidas,Ligita'; }
  elsif ($diena == 24)	{ $vardai = 'Jonas,Eivilitas,Eivilitė,Eiviltas,Janina'; }
  elsif ($diena == 25)	{ $vardai = 'Vilhelmas,Geistautas,Geistautė,Baniutė,Vilius,Geisvyda,Geisvydas'; }
  elsif ($diena == 26)	{ $vardai = 'Paulius,Jaunutis,Virgilijus,Povilas,Jaunius,Viltautė'; }
  elsif ($diena == 27)	{ $vardai = 'Ema,Kirilas,Vladislovas,Gediminas,Norgailė,Vladas'; }
  elsif ($diena == 28)	{ $vardai = 'Irenėjus,Tulgedas,Gaudrė'; }
  elsif ($diena == 29)	{ $vardai = 'Paulius,Petras,Mantigirdas,Gedrimė,Benita,Povilas'; }
  elsif ($diena == 30)	{ $vardai = 'Otonas,Otas,Tautginas,Novilė,Emilija,Liucina'; }
 }
 elsif ($menuo == 7) {
  if    ($diena == 1)	{ $vardai = 'Julijus,Tautrimas,Liepa,Julius'; }
  elsif ($diena == 2)	{ $vardai = 'Martinijonas,Jotvingas,Gantautė,Marijonas,Martys'; }
  elsif ($diena == 3)	{ $vardai = 'Anatolijus,Leonas,Tomas,Vaidilas,Liaudmina'; }
  elsif ($diena == 4)	{ $vardai = 'Berta,Elżbieta,Ulrikas,Skalvis,Gedgailė,Teodoras,Malvina'; }
  elsif ($diena == 5)	{ $vardai = 'Antanas,Butginas,Mantmilė,Karolina,Filomena'; }
  elsif ($diena == 6)	{ $vardai = 'Marija,Nervydas,Ginvilė,Dominyka,Domė,Mindaugas,Nervilė,Nervilas,Nerilė,Nerilis'; }
  elsif ($diena == 7)	{ $vardai = 'Sangailas,Vilgailė,Estera,Astijus'; }
  elsif ($diena == 8)	{ $vardai = 'Vaitautas,Valmantė,Arnoldas,Elżbieta,Elzė,Virginija,Virga'; }
  elsif ($diena == 9)	{ $vardai = 'Marcelina,Veronika,Algirdas,Algirdė,Leonardas,Marcė,Vera'; }
  elsif ($diena == 10)	{ $vardai = 'Amalija,Prudencija,Rufina,Gilvainas,Eirimė'; }
  elsif ($diena == 11)	{ $vardai = 'Benediktas,Vilmantas,Šarūnė,Pijus,Kipras'; }
  elsif ($diena == 12)	{ $vardai = 'Bonifacas,Brunonas,Sigisbertas,Margiris,Vyliaudė,Izabelė,Sigitas'; }
  elsif ($diena == 13)	{ $vardai = 'Eugenijus,Henrikas,Arvilas,Arvilė,Anakletas,Anys'; }
  elsif ($diena == 14)	{ $vardai = 'Kamilas,Vydas,Eigilė,Libertas'; }
  elsif ($diena == 15)	{ $vardai = 'Bonaventūras,Mantas,Gerimantė,Henrikas,Rozalija,Rożė'; }
  elsif ($diena == 16)	{ $vardai = 'Vaigaudas,Danguolė,Faustas,Marija'; }
  elsif ($diena == 17)	{ $vardai = 'Aleksas,Magdalena,Darius,Girėnas,Vaiga'; }
  elsif ($diena == 18)	{ $vardai = 'Arnoldas,Fridrikas,Tautvilas,Eimantė,Kamilis,Ervinas'; }
  elsif ($diena == 19)	{ $vardai = 'Aurėja,Galigantas,Mantigailė,Vincentas,Auksė,Vincas'; }
  elsif ($diena == 20)	{ $vardai = 'Aurelijus,Česlovas,Elijas,Alvydas,Vismantė,Jeronimas'; }
  elsif ($diena == 21)	{ $vardai = 'Laurynas,Lionginas,Rimvydas,Rimvydė,Danielius'; }
  elsif ($diena == 22)	{ $vardai = 'Magdalena,Dalius,Mantilė'; }
  elsif ($diena == 23)	{ $vardai = 'Apolinaras,Romula,Tarvilas,Gilmina,Brigita,Roma'; }
  elsif ($diena == 24)	{ $vardai = 'Kristina,Kristoforas,Kunigunda,Dargvilas,Dargvilė,Kristupas'; }
  elsif ($diena == 25)	{ $vardai = 'Jokūbas,Kargaudas,Aušrinė,Kristoforas,Kristupas'; }
  elsif ($diena == 26)	{ $vardai = 'Joakimas,Ona,Daugintas,Eigirdė,Jokimas'; }
  elsif ($diena == 27)	{ $vardai = 'Natalija,Panteleonas,Žintautas,Svalia,Sergijus'; }
  elsif ($diena == 28)	{ $vardai = 'Ada,Inocentas,Nazarijus,Vytaras,Augmina,Nazaras,Vytas'; }
  elsif ($diena == 29)	{ $vardai = 'Beatričė,Faustinas,Feliksas,Morta,Simplicijus,Mantvydas,Mantvydė,Laimis'; }
  elsif ($diena == 30)	{ $vardai = 'Abdonas,Nortautas,Radvilė,Donatilė'; }
  elsif ($diena == 31)	{ $vardai = 'Elena,Ignacas,Sanginas,Vykintė,Ignotas'; }
 }
 elsif ($menuo == 8) {
  if    ($diena == 1)	{ $vardai = 'Alfonsas,Bartautas,Bartautė,Almeda'; }
  elsif ($diena == 2)	{ $vardai = 'Euzebijus,Steponas,Tautvilas,Guoda,Gustavas,Alfonsas'; }
  elsif ($diena == 3)	{ $vardai = 'Lidija,Mangirdas,Lengvinė,Steponas,Augustė'; }
  elsif ($diena == 4)	{ $vardai = 'Gerimantas,Milgedė,Dominykas'; }
  elsif ($diena == 5)	{ $vardai = 'Felicisimas,Nona,Rimtas,Mintarė,Osvaldas,Vilija'; }
  elsif ($diena == 6)	{ $vardai = 'Bylotas,Daiva'; }
  elsif ($diena == 7)	{ $vardai = 'Donatas,Kajetonas,Sikstas,Drąsutis,Jogailė,Klaudija,Jogilė'; }
  elsif ($diena == 8)	{ $vardai = 'Dominykas,Tulgirdas,Daina,Elidijus,Gustavas'; }
  elsif ($diena == 9)	{ $vardai = 'Romanas,Mintaras,Tarvilė,Rolandas,Romas'; }
  elsif ($diena == 10)	{ $vardai = 'Laurynas,Norimantas,Laima,Laurynas,Asterija,Astra'; }
  elsif ($diena == 11)	{ $vardai = 'Filomena,Klara,Severas,Zuzana,Visalgas,Visvilė,Ligija'; }
  elsif ($diena == 12)	{ $vardai = 'Radegunda,Laimonas,Laimona,Klara,Radė'; }
  elsif ($diena == 13)	{ $vardai = 'Kasijonas,Poncijonas,Naglis,Gilvilė,Ipolitas,Diana'; }
  elsif ($diena == 14)	{ $vardai = 'Euzebijus,Maksimilijonas,Grintautas,Guostė'; }
  elsif ($diena == 15)	{ $vardai = 'Visvilas,Vydenė,Napoleonas,Sigita,Napalys,Rugilė'; }
  elsif ($diena == 16)	{ $vardai = 'Rokas,Steponas,Butvydas,Alvita,Jokimas'; }
  elsif ($diena == 17)	{ $vardai = 'Hiacintas,Jacintas,Saulenis,Mażvilė,Jackus'; }
  elsif ($diena == 18)	{ $vardai = 'Elena,Mantautas,Gendvilė,Ilona'; }
  elsif ($diena == 19)	{ $vardai = 'Emilija,Argaudas,Tolvina,Boleslovas,Balys'; }
  elsif ($diena == 20)	{ $vardai = 'Bernardas,Tolvinas,Neringa'; }
  elsif ($diena == 21)	{ $vardai = 'Linda,Pijus,Gaudvydas,Joana,Kazimiera,Medeinė'; }
  elsif ($diena == 22)	{ $vardai = 'Karijotas,Rimantė,Ipolitas,Zygfridas'; }
  elsif ($diena == 23)	{ $vardai = 'Pilypas,Rożė,Girmantas,Tautgailė'; }
  elsif ($diena == 24)	{ $vardai = 'Baltramiejus,Michalina,Viešvilas,Rasuolė,Alicija,Baltrus,Mykolė'; }
  elsif ($diena == 25)	{ $vardai = 'Juozapas,Liudvikas,Patricija,Mangailas,Mangailė,Liucilė,Liudas'; }
  elsif ($diena == 26)	{ $vardai = 'Kazimieras,Zefirinas,Gailius,Algintė,Aleksandras,Gailutis'; }
  elsif ($diena == 27)	{ $vardai = 'Monika,Tolvydas,Aušrinė,Cezarijus'; }
  elsif ($diena == 28)	{ $vardai = 'Augustina,Tarvilas,Steigvilė'; }
  elsif ($diena == 29)	{ $vardai = 'Adolfas,Sabina,Barvydas,Gaudvydė,Beatričė'; }
  elsif ($diena == 30)	{ $vardai = 'Adelė,Feliksas,Kintenis,Augūna,Adauktas,Gaudencija,Laimis,Joris'; }
  elsif ($diena == 31)	{ $vardai = 'Izabelė,Raimundas,Raimunda,Vilmantas,Vilmantė'; }
 }
 elsif ($menuo == 9) {
  if    ($diena == 1)	{ $vardai = 'Egidijus,Verena,Gytautas,Burvilė,Gytis'; }
  elsif ($diena == 2)	{ $vardai = 'Ingrida,Protenis,Vilgaudas,Steponas,Vilgaudė'; }
  elsif ($diena == 3)	{ $vardai = 'Berta,Bronislovas,Bronislova,Grigalius,Sirtautas,Mirga,Bronislava'; }
  elsif ($diena == 4)	{ $vardai = 'Ida,Rozalija,Girstautas,Germantė,Rożė'; }
  elsif ($diena == 5)	{ $vardai = 'Laurynas,Erdenis,Dingailė,Justina,Stanislava,Stasė'; }
  elsif ($diena == 6)	{ $vardai = 'Beata,Faustas,Vaištautas,Tautenė'; }
  elsif ($diena == 7)	{ $vardai = 'Klodoaldas,Pulcherija,Regina,Bartas,Bartė,Palmira,Klodas'; }
  elsif ($diena == 8)	{ $vardai = 'Adrijonas,Marija,Liaugaudas,Daumantė,Klementina'; }
  elsif ($diena == 9)	{ $vardai = 'Serapina,Sergijus,Argintas,Ramutė,Sonata'; }
  elsif ($diena == 10)	{ $vardai = 'Dionyzas,Konstancija,Mikalojus,Salvijus,Tautgirdas,Girmintė,Kostė'; }
  elsif ($diena == 11)	{ $vardai = 'Hiacintas,Jacintas,Augantas,Gytautė,Helga,Jackus,Gytė'; }
  elsif ($diena == 12)	{ $vardai = 'Gvidas,Marija,Tolvaldas,Vaidmantė'; }
  elsif ($diena == 13)	{ $vardai = 'Barmantas,Barvydė'; }
  elsif ($diena == 14)	{ $vardai = 'Sanita,Sanija,Santa,Eisvinas,Eisvina,Krescencija,Krescencijus'; }
  elsif ($diena == 15)	{ $vardai = 'Eugenija,Rolandas,Vismantas,Rimgailė,Nikodemas'; }
  elsif ($diena == 16)	{ $vardai = 'Eufemija,Kiprijonas,Kornelijus,Liudmila,Rimgaudas,Jogintė,Kamilė,Edita,Kipras'; }
  elsif ($diena == 17)	{ $vardai = 'Robertas,Sintautas,Sintautė,Pranciškus,Pranas'; }
  elsif ($diena == 18)	{ $vardai = 'Juozapas,Stanislovas,Mingailas,Galmantė,Stefanija,Stefa'; }
  elsif ($diena == 19)	{ $vardai = 'Arnulfas,Januarijus,Girvinas,Vytė,Vilhelmina,Vilė'; }
  elsif ($diena == 20)	{ $vardai = 'Fausta,Kolumba,Vainoras,Tautgirdė,Eustachijus,Vainora'; }
  elsif ($diena == 21)	{ $vardai = 'Matas,Mantvilas,Viskintė'; }
  elsif ($diena == 22)	{ $vardai = 'Mauricijus,Tomas,Tarvinas,Virmantė'; }
  elsif ($diena == 23)	{ $vardai = 'Linas,Teklė,Galintas,Galintė,Lina,Linė'; }
  elsif ($diena == 24)	{ $vardai = 'Gerardas,Gedvinas,Gedvinė'; }
  elsif ($diena == 25)	{ $vardai = 'Kleopas,Vladislovas,Vaigintas,Ramvydė,Aurelija'; }
  elsif ($diena == 26)	{ $vardai = 'Damijonas,Vydenis,Grażina,Kipras,Justina,Justė'; }
  elsif ($diena == 27)	{ $vardai = 'Vincentas,Kovaldas,Daugilė,Damijonas,Adalbertas'; }
  elsif ($diena == 28)	{ $vardai = 'Svetlana,Lana,Vaclovas,Tautvydas,Vientautė,Saliamonas,Vacys'; }
  elsif ($diena == 29)	{ $vardai = 'Gabrielius,Mykolas,Rapolas,Kęsgailas,Kęsgailė,Michalina,Mykolė'; }
  elsif ($diena == 30)	{ $vardai = 'Jeronimas,Sofija,Žymantas,Bytautė,Zofija'; }
 }
 elsif ($menuo == 10) {
  if    ($diena == 1)	{ $vardai = 'Emanuelis,Remigijus,Teresė,Mantas,Mintė,Benigna'; }
  elsif ($diena == 2)	{ $vardai = 'Modestas,Eidvilas,Getautė'; }
  elsif ($diena == 3)	{ $vardai = 'Evaldas,Kristina,Milgintas,Alanta,Teresė'; }
  elsif ($diena == 4)	{ $vardai = 'Pranciškus,Mąstautas,Eivydė,Pranas'; }
  elsif ($diena == 5)	{ $vardai = 'Edvinas,Galė,Placidas,Palemonas,Gilda,Donata'; }
  elsif ($diena == 6)	{ $vardai = 'Brunonas,Budvydas,Vytenė'; }
  elsif ($diena == 7)	{ $vardai = 'Morkus,Renatas,Butrimas,Eivina,Justina'; }
  elsif ($diena == 8)	{ $vardai = 'Benedikta,Marcelis,Sergijus,Daugas,Gaivilė,Brigita,Demetras,Aina'; }
  elsif ($diena == 9)	{ $vardai = 'Liudvikas,Gedėtas,Virgailė,Dionyzas,Liudas'; }
  elsif ($diena == 10)	{ $vardai = 'Danielius,Pranciškus,Gilvydas,Butautė,Danys'; }
  elsif ($diena == 11)	{ $vardai = 'Germanas,Rimgaudas,Daugvydė,Zinaida,Zina'; }
  elsif ($diena == 12)	{ $vardai = 'Rudolfas,Serapinas,Gantas,Deimintė,Salvinas'; }
  elsif ($diena == 13)	{ $vardai = 'Eduardas,Mintaras,Nortautas,Venancijus,Edvardas,Nortautė,Edgaras'; }
  elsif ($diena == 14)	{ $vardai = 'Kalikstas,Vincentas,Mindaugas,Rimvydė,Fortunata'; }
  elsif ($diena == 15)	{ $vardai = 'Teresė,Galimintas,Domantė,Leonardas'; }
  elsif ($diena == 16)	{ $vardai = 'Aurelija,Galius,Jadvyga,Margarita,Gutautas,Dovaldė,Ambraziejus,Dovaidas,Dovaidė,Greta,Gretė'; }
  elsif ($diena == 17)	{ $vardai = 'Ignacas,Kintautas,Gytė,Marijonas,Margarita,Ignotas'; }
  elsif ($diena == 18)	{ $vardai = 'Lukas,Liubartas,Kęsmina,Vaiva'; }
  elsif ($diena == 19)	{ $vardai = 'Akvilinas,Izaokas,Paulius,Geisvilas,Kantrimė,Kleopatra,Laura,Povilas'; }
  elsif ($diena == 20)	{ $vardai = 'Irena,Gedas,Deimina,Adelina,Adelė'; }
  elsif ($diena == 21)	{ $vardai = 'Uršulė,Raitvilas,Gilanda,Hiliaras,Vilma'; }
  elsif ($diena == 22)	{ $vardai = 'Donatas,Malvina,Severinas,Viltaras,Mingedė,Aliodija,Severas'; }
  elsif ($diena == 23)	{ $vardai = 'Sanginas,Ramvydė,Odilija'; }
  elsif ($diena == 24)	{ $vardai = 'Antanas,Daugailas,Švitrigailė,Rapolas,Gilbertas'; }
  elsif ($diena == 25)	{ $vardai = 'Krizantas,Švitrigaila,Vaigedė,Darija,Inga,Krizas'; }
  elsif ($diena == 26)	{ $vardai = 'Liudginas,Mingintė,Evaristas,Liaudginas,Vita'; }
  elsif ($diena == 27)	{ $vardai = 'Ramojus,Tautmilė,Vincentas,Sabina,Vincas'; }
  elsif ($diena == 28)	{ $vardai = 'Judas,Tadas,Simonas,Almantė,Gaudrimas,Simas'; }
  elsif ($diena == 29)	{ $vardai = 'Ermelinda,Gelgaudas,Tolvydė,Violeta,Narcizas'; }
  elsif ($diena == 30)	{ $vardai = 'Alfonsas,Liucilė,Volfgangas,Skirgaila,Skirvydė,Edmundas,Darata,Volfas'; }
  elsif ($diena == 31)	{ $vardai = 'Benignas,Mąstvilas,Tanvilė,Alfonsas,Liucilė'; }
 }
 elsif ($menuo == 11) {
  if    ($diena == 1)	{ $vardai = 'Žygaudas,Milvydė,Andrius'; }
  elsif ($diena == 2)	{ $vardai = 'Gedartas,Gedilė,Valentas,Valys'; }
  elsif ($diena == 3)	{ $vardai = 'Hubertas,Martynas,Silvija,Vydmantas,Norvainė'; }
  elsif ($diena == 4)	{ $vardai = 'Agrikola,Karolis,Modesta,Vitalis,Eibartas,Vaidmina,Vitalijus,Vitalius'; }
  elsif ($diena == 5)	{ $vardai = 'Elżbieta,Zacharijas,Audangas,Gedvydė,Florijonas,Elzė'; }
  elsif ($diena == 6)	{ $vardai = 'Leonardas,Melanijus,Ašmantas,Vygaudė,Armantas'; }
  elsif ($diena == 7)	{ $vardai = 'Ernestas,Rufas,Sirtautas,Gotautė,Karina'; }
  elsif ($diena == 8)	{ $vardai = 'Severijonas,Viktorinas,Svirbutas,Domantė,Gotfridas,Severinas'; }
  elsif ($diena == 9)	{ $vardai = 'Aurelijus,Paulina,Dargintas,Skirtautė,Teodoras,Estela'; }
  elsif ($diena == 10)	{ $vardai = 'Andriejus,Leonas,Vaišviltas,Gelvydė,Andrius,Evelina'; }
  elsif ($diena == 11)	{ $vardai = 'Martynas,Vygintas,Milvydė,Anastazija,Nastė'; }
  elsif ($diena == 12)	{ $vardai = 'Juozapotas,Teodoras,Ašmantas,Alvilė,Kristina,Renata,Kristinas'; }
  elsif ($diena == 13)	{ $vardai = 'Norvydas,Eirimė,Arkadijus'; }
  elsif ($diena == 14)	{ $vardai = 'Gotfridas,Ramantas,Saulenė,Emilis,Judita'; }
  elsif ($diena == 15)	{ $vardai = 'Albertas,Leopoldas,Vaidilas,Žadvydė'; }
  elsif ($diena == 16)	{ $vardai = 'Edmundas,Gertrūda,Margarita,Vaišvydas,Gerdvilė'; }
  elsif ($diena == 17)	{ $vardai = 'Dionyzas,Elżbieta,Grigalius,Getautas,Gilvilė,Viktorija'; }
  elsif ($diena == 18)	{ $vardai = 'Salomėja,Ginvydas,Ginvydė,Otonas,Romanas,Otas'; }
  elsif ($diena == 19)	{ $vardai = 'Matilda,Dainotas,Rimgaudė,Dainius'; }
  elsif ($diena == 20)	{ $vardai = 'Feliksas,Jovydas,Vaidvilė,Laimis'; }
  elsif ($diena == 21)	{ $vardai = 'Gomantas,Eibartė,Honorijus,Alberta,Norgaudas,Girenė,Honoratas,Tomas'; }
  elsif ($diena == 22)	{ $vardai = 'Cecilija,Cilė,Steigintas,Dargintė'; }
  elsif ($diena == 23)	{ $vardai = 'Felicita,Klemensas,Kolumbanas,Doviltas,Liubartė,Adelė,Kolumbas,Orestas'; }
  elsif ($diena == 24)	{ $vardai = 'Mantvinas,Žybartė,Gerardas'; }
  elsif ($diena == 25)	{ $vardai = 'Kotryna,Santautas,Germilė'; }
  elsif ($diena == 26)	{ $vardai = 'Leonardas,Dobilas,Vygintė,Silvestras,Vygantė'; }
  elsif ($diena == 27)	{ $vardai = 'Maksimas,Virgilijus,Skomantas,Girdvydė,Virgis,Girvydė'; }
  elsif ($diena == 28)	{ $vardai = 'Jokūbas,Steponas,Rimgaudas,Vakarė,Rufas'; }
  elsif ($diena == 29)	{ $vardai = 'Saturninas,Daujotas,Butvydė,Saturnas'; }
  elsif ($diena == 30)	{ $vardai = 'Andriejus,Saugardas,Dovainė,Andrius'; }
 }
 elsif ($menuo == 12) {
  if    ($diena == 1)	{ $vardai = 'Aleksandras,Eligijus,Natalija,Butigeidas,Algmina'; }
  elsif ($diena == 2)	{ $vardai = 'Liucijus,Svirgailas,Milmantė,Aurelija,Paulina'; }
  elsif ($diena == 3)	{ $vardai = 'Pranciškus,Gailintas,Audinga,Ksaveras'; }
  elsif ($diena == 4)	{ $vardai = 'Barbora,Osmundas,Vainotas,Liugailė'; }
  elsif ($diena == 5)	{ $vardai = 'Eimintas,Geisvilė,Gratas,Gracija'; }
  elsif ($diena == 6)	{ $vardai = 'Mikalojus,Bilmantas,Norvydė'; }
  elsif ($diena == 7)	{ $vardai = 'Ambraziejus,Daugardas,Tautė,Jekaterina'; }
  elsif ($diena == 8)	{ $vardai = 'Zenonas,Vaidginas,Gedmintė,Guntilda'; }
  elsif ($diena == 9)	{ $vardai = 'Delfina,Leokadija,Vakaris,Gedenė,Valerija'; }
  elsif ($diena == 10)	{ $vardai = 'Eidimtas,Ilma,Eularija,Loreta'; }
  elsif ($diena == 11)	{ $vardai = 'Artūras,Aistis,Tautvaldė,Dovydas'; }
  elsif ($diena == 12)	{ $vardai = 'Joana,Žaneta,Gilmintas,Vaingedė,Dagmara,Žana'; }
  elsif ($diena == 13)	{ $vardai = 'Liucija,Odilija,Kastautas,Eiviltė,Otilija,Kastytis'; }
  elsif ($diena == 14)	{ $vardai = 'Alfredas,Fortunatas,Tarvainas,Kintvilė'; }
  elsif ($diena == 15)	{ $vardai = 'Justas,Kristijonas,Kristijona,Nina,Ona,Gaudenis,Gaudenė'; }
  elsif ($diena == 16)	{ $vardai = 'Albina,Vygaudas,Audronė,Algina,Alina,Adas'; }
  elsif ($diena == 17)	{ $vardai = 'Olimpija,Mantgailas,Drovydė,Jolanta'; }
  elsif ($diena == 18)	{ $vardai = 'Gracijonas,Girdvilas,Eivilė,Gracijus'; }
  elsif ($diena == 19)	{ $vardai = 'Rufas,Urbonas,Gerdvilas,Rimantė,Darijus'; }
  elsif ($diena == 20)	{ $vardai = 'Dominykas,Daugardas,Grażvilė,Teofilis'; }
  elsif ($diena == 21)	{ $vardai = 'Norgaudė,Girenė,Tomas'; }
  elsif ($diena == 22)	{ $vardai = 'Rimbertas,Gedvydas,Dovilė,Zenonas,Ksavera'; }
  elsif ($diena == 23)	{ $vardai = 'Viktorija,Mina,Vilbutas,Veliuona'; }
  elsif ($diena == 24)	{ $vardai = 'Adelė,Adomas,Ieva,Irmina,Girstautas,Minvydė,Irma'; }
  elsif ($diena == 25)	{ $vardai = 'Anastazija,Grażvydas,Sanrimė,Eugenija,Nastė,Genė'; }
  elsif ($diena == 26)	{ $vardai = 'Steponas,Gaudilė,Gindvilė,Gaudvilas'; }
  elsif ($diena == 27)	{ $vardai = 'Dautartas,Gedvinė,Fabijolė'; }
  elsif ($diena == 28)	{ $vardai = 'Inga,Ivita,Irvita,Ingeborga,Kantvilas,Vaidilutė,Ema,Kamilė'; }
  elsif ($diena == 29)	{ $vardai = 'Tomas,Gentvainas,Gaja,Teofilė'; }
  elsif ($diena == 30)	{ $vardai = 'Margarita,Sabinas,Sabina,Grażvilas,Dovydas,Irmina'; }
  elsif ($diena == 31)	{ $vardai = 'Melanija,Silvestras,Gedgantas,Mingailė'; }
 }
 else { return 0; }

 return (duomenu_isvedimas($vardai,$koduote));
}

sub zodiakas {
 my ($metai,$menuo,$diena,$koduote) = tikrinimas($_[1],$_[2]);

 my $zodiakas;
 my $data = "$menuo.$diena";
 if    ($data =~ /^((12.2[2-9])|(12.3[0,1])|(1.[1-9])|(1.1[0-9])|(1.20))$/) { $zodiakas = 'Ożiaragis'; } # 12.22-01.20
 elsif ($data =~ /^((1.2[1-9])|(1.3[0,1])|(2.[1-9])|(2.1[0-9]))$/){ $zodiakas = 'Vandenis'; } # 01.21-02.19
 elsif ($data =~ /^((2.2[0-9])|(3.[1-9])|(3.20))$/) { $zodiakas = 'Žuvis'; } # 02.20-03.20
 elsif ($data =~ /^((3.2[1-9])|(3.[0,1])|(4.[1-9])|(4.1[0-9])|(4.20))$/) { $zodiakas = 'Avinas'; } # 03.21-04.20
 elsif ($data =~ /^((4.2[1-9])|(4.30)|(5.[1-9])|(5.1[0-9])|(5.2[0-2]))$/) { $zodiakas = 'Jautis'; } # 04.21-05.22
 elsif ($data =~ /^((5.2[3-9])|(5.3[0,1])|(6.[1-9])|(5.1[0-9])|(5.2[0,1]))$/) { $zodiakas = 'Dvynys'; } # 05.23-06.21
 elsif ($data =~ /^((6.2[2-9])|(6.30)|(7.[1-9])|(7.1[0-9])|(7.2[0-2]))$/) { $zodiakas = 'Vėżys'; } # 06.22-07.22
 elsif ($data =~ /^((7.2[3-9])|(7.3[0,1])|(8.[1-9])|(8.1[0-9])|(8.2[0-2]))$/) { $zodiakas = 'Liūtas'; } # 07.23-08.22
 elsif ($data =~ /^((8.2[3-9])|(8.3[0,1])|(9.[1-9])|(9.1[0-9])|(9.2[0-2]))$/) { $zodiakas = 'Mergelė'; } # 08.23-09.22
 elsif ($data =~ /^((9.2[3-9])|(9.30)|(10.[1-9])|(10.1[0-9])|(10.2[0-2]))$/) { $zodiakas = 'Svarstyklės'; } # 09.23-10.22
 elsif ($data =~ /^((10.2[3-9])|(10.3[0,1])|(11.[1-9])|(11.1[0-9])|(11.2[0-2]))$/) { $zodiakas = 'Skorpionas'; } # 10.23-11.22
 elsif ($data =~ /^((11.2[3-9])|(11.30)|(12.[1-9])|(12.1[0-9])|(12.2[0-2]))$/) { $zodiakas = 'Šaulys'; } # 11.23-12.22
 elsif ($data =~ /^((12.2[2-9])|(12.3[0,1])|(1.[1-9])|(1.1[0-9])|(1.20))$/) { $zodiakas = 'Ożiaragis'; } # 12.22-01.20

 return (duomenu_isvedimas($zodiakas,$koduote));
}

sub metu_laikas {
 my ($metai,$menuo,$diena,$koduote) = tikrinimas($_[1],$_[2]);

 my $metu_laikas;
 if    ($menuo =~ /^(12|1|2)$/) { $metu_laikas = 'Žiema'; }
 elsif ($menuo =~ /^(3|4|5)$/) { $metu_laikas = 'Pavasaris'; }
 elsif ($menuo =~ /^(6|7|8)$/) { $metu_laikas = 'Vasara'; }
 elsif ($menuo =~ /^(9|10|11)$/) { $metu_laikas = 'Ruduo'; }

 return (duomenu_isvedimas($metu_laikas,$koduote));
}

sub menuo {
 my ($metai,$menuo,$diena,$koduote) = tikrinimas($_[1],$_[2]);

 my $men_pav;
 if    ($menuo == 1)  { $men_pav = 'Sausis'; }
 elsif ($menuo == 2)  { $men_pav = 'Vasaris'; }
 elsif ($menuo == 3)  { $men_pav = 'Kovas'; }
 elsif ($menuo == 4)  { $men_pav = 'Balandis'; }
 elsif ($menuo == 5)  { $men_pav = 'Gegużė'; }
 elsif ($menuo == 6)  { $men_pav = 'Birżelis'; }
 elsif ($menuo == 7)  { $men_pav = 'Liepa'; }
 elsif ($menuo == 8)  { $men_pav = 'Rugpjūtis'; }
 elsif ($menuo == 9)  { $men_pav = 'Rugsėjis'; }
 elsif ($menuo == 10) { $men_pav = 'Spalis'; }
 elsif ($menuo == 11) { $men_pav = 'Lapkritis'; }
 elsif ($menuo == 12) { $men_pav = 'Gruodis'; }

 return (duomenu_isvedimas($men_pav,$koduote));
}

sub diena {
 my ($metai,$menuo,$diena,$koduote) = tikrinimas($_[1],$_[2]);
 my %m=(1,0,2,3,3,2,4,5,5,0,6,3,7,5,8,1,9,4,10,6,11,2,12,4,);
 my $MDS = (($diena+$m{$menuo}+$metai+(int($metai/4))-(int($metai/100))+(int($metai/400)))%7);
 my $dien_pav;
 if ($MDS == 1) { $dien_pav = 'Pirmadienis'; }
 elsif ($MDS == 2) { $dien_pav = 'Antradienis'; }
 elsif ($MDS == 3) { $dien_pav = 'Trečiadienis'; }
 elsif ($MDS == 4) { $dien_pav = 'Ketvirtadienis'; }
 elsif ($MDS == 5) { $dien_pav = 'Penktadienis'; }
 elsif ($MDS == 6) { $dien_pav = 'Šeštadienis'; }
 elsif ($MDS == 0) { $dien_pav = 'Sekmadienis'; }

 return (duomenu_isvedimas($dien_pav,$koduote));
}

sub tikrinimas {
 my ($data,$koduote) = @_;
 my ($metai,$menuo,$diena) = split(/\./,$data);
 $menuo =~ s/^0//;
 $diena =~ s/^0//;

 return 0 unless (
 (($menuo == 1) && ($diena < 32)) || # 1.31
 (($menuo == 2) && ((($metai/4) =~ /^\d+\.\d+$/) && ($diena < 29))) || (((($metai/4) =~ /^\d+$/) && ($diena < 30))) || # 2.28, o kas 4 metus ("keliamieji metai") 2.29
 (($menuo == 3) && ($diena < 32)) || # 3.31
 (($menuo == 4) && ($diena < 31)) || # 4.30
 (($menuo == 5) && ($diena < 32)) || # 5.31
 (($menuo == 6) && ($diena < 31)) || # 6.30
 (($menuo == 7) && ($diena < 32)) || # 7.31
 (($menuo == 8) && ($diena < 32)) || # 8.31
 (($menuo == 9) && ($diena < 31)) || # 9.30
 (($menuo == 10) && ($diena < 32)) || # 10.31
 (($menuo == 11) && ($diena < 31)) || # 11.30
 (($menuo == 12) && ($diena < 32))); # 12.31

 return ($metai,$menuo,$diena,$koduote);
}

sub duomenu_isvedimas {
 my ($eilute,$koduote) = @_;
 $koduote = 'utf-8' unless 'www';
 if ($koduote eq 'utf-8') { $eilute =~ s/&#(\d{4});/pack('U',$1)/eg; }
 return $eilute;
}

1;