#!/usr/bin/perl


use CGI::Carp qw(fatalsToBrowser);


print "Content-type: text/html\n\n";


@months = qw(ינואר פברואר מרץ אפריל מאי יוני יולי אוגוסט ספטמבר אוקטובר נובמבר דצמבר);

@weekDays = qw( ראשון שני שלישי רביעי חמישי שישי שבת);

($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();

if ($min < 10) {$min = "0$min";} 

if ($hour < 10) {$hour = "0$hour";} 

if ($month < 10) {$mday = "0$month";} 

$year = 1900 + $yearOffset;

$monthReal = $month +1;

$theTime = "יום $weekDays[$dayOfWeek] $dayOfMonth ב$months[$month], $dayOfMonth.$monthReal.$year"; 

print "document.write('$theTime');";