Metai::Kalendorius (cpan) - Lietuviškas kalendorius.

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

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

print Metai::Kalendorius->vardai($data,'utf-8');
print Metai::Kalendorius->zodiakas($data,'www');
print Metai::Kalendorius->metu_laikas($data,'utf-8');
print Metai::Kalendorius->menuo($data,'www');
print Metai::Kalendorius->diena($data,'www');

Šiandien 2012.02.06

Vardai: Darata,Paulius,Alkis,Žyvilė,Titas,Povilas,Živilė,Urtė,Oksana

Zodiako żenklas: Vandenis

Metų laikas: Žiema

Mėnuo: Vasaris

Diena: Trečiadienis