#!/usr/bin/perl
my ($tsec,$tmin,$thour,$tmday,$tmon,$tyear,$twd,$tyd,$tds) = localtime(time);
my (@tweekdays) = (
'&#922;&#965;&#961;&#953;&#945;&#954;&#942;',
'&#916;&#949;&#965;&#964;&#941;&#961;&#945;',
'&#932;&#961;&#943;&#964;&#951;',
'&#932;&#949;&#964;&#940;&#961;&#964;&#951;',
'&#928;&#941;&#956;&#960;&#964;&#951;',
'&#928;&#945;&#961;&#945;&#963;&#954;&#949;&#965;&#942;',
'&#931;&#940;&#946;&#946;&#945;&#964;&#959;'
);
my (@tmonths) = (
'&#921;&#945;&#957;&#959;&#965;&#945;&#961;&#943;&#959;&#965;',
'&#934;&#949;&#946;&#961;&#959;&#965;&#945;&#961;&#943;&#959;&#965;',
'&#924;&#945;&#961;&#964;&#943;&#959;&#965;',
'&#913;&#960;&#961;&#953;&#955;&#943;&#959;&#965;',
'&#924;&#945;&#970;&#959;&#965;',
'&#921;&#959;&#965;&#957;&#943;&#959;&#965;',
'&#921;&#959;&#965;&#955;&#943;&#959;&#965;',
'&#913;&#965;&#947;&#959;&#973;&#963;&#964;&#959;&#965;',
'&#931;&#949;&#960;&#964;&#949;&#956;&#946;&#961;&#943;&#959;&#965;',
'&#927;&#954;&#964;&#969;&#946;&#961;&#943;&#959;&#965;',
'&#925;&#959;&#949;&#956;&#946;&#961;&#943;&#959;&#965;',
'&#916;&#949;&#954;&#949;&#956;&#946;&#961;&#943;&#959;&#965;'
);
my ($tweekday) = $tweekdays[$twd];
my ($tmonth) = $tmonths[$tmon];
$tyear += 1900;
my ($tdate) = "$tweekday, $tmday $tmonth, $tyear";
print "Content-type: text/html\n\n";
print "$tdate\n";

##</code><code>##

<html lang="el">
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1253">