#!/usr/local/bin/perl
#time.cgi
##
# Kogda prishel?
sub time_russ{
my @r_m;
my @rus_dweek;
@r_m=('Января','Февраля','Марта','Апреля','Мая','Июня','Июля','Августа','Сентября','Октября','Ноября','Декабря');
@rus_dweek=('воскресенье','понедельник','вторник','среда','четверг','пятница','суббота');
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year = $year + 1900;
$mon = $mon + 1;
return $hour . ' ' . 'часов' . ' ' . $min . ' ' . 'минут' . ' ' . $mday . ' ' . @r_m[$mon] . ', ' . @rus_dweek[$wday]  ;
}

$now_rus = time_russ;
####
print "Content-Type: text/html \n\n";
print " $now_rus \n";