{{
## ДО СЛЕДУЮЩЕЙ ПАРЫ ФИГУРНЫХ СКОБОК НИЧЕГО НЕ МЕНЯЙТЕ
MAIN:{
if($wantedit eq 'yes' or $error) {
$OUT .=qq`
$error`;
last MAIN;
}
$OUT .= qq`
Нижайше просим не менять табличный вид записи праздников,
а при добавлении новых внимательно прочитать .
`;
my ($day,$month,$year,$day2)=(localtime)[3..6];
if($day2 eq '1') {$day2 = 'Понедельник'}
if($day2 eq '2') {$day2 = 'Вторник'}
if($day2 eq '3') {$day2 = 'Среда'}
if($day2 eq '4') {$day2 = 'Четверг'}
if($day2 eq '5') {$day2 = 'Пятница'}
if($day2 eq '6') {$day2 = 'Суббота'}
if($day2 eq '0') {$day2 = 'Воскресенье'}
if ($month < 10) { $month = '0'.($month+1) }
if ($day < 10) { $day = '0'.$day }
$OUT .= qq`
Сегодня $day2
`;
$OUT .= "`;
}
$OUT .= "
Programming by mr bik (c) 2001\n";
}}