#!/usr/bin/perl
use strict;
use warnings;
use utf8;     # doesn't appear to be necessary
use Date::Language;
my $lang = Date::Language->new('Greek');
print $lang->time2str("%A %o %B %Y\n", time);