#!/usr/bin/perl
@miesiace = ("stycznia", "lutego", "marca", "kwietnia", "maja",
"czerwca", "lipca", "sierpnia", "września",
"października", "listopada", "grudnia");
@dni_tyg = ("niedziela", "poniedziałek", "wtorek", "środa",
"czwartek", "piątek", "sobota");
print "Content-type: text/html; charset=iso-8859-2\n\n";
print "\nZegar\n";
print "\nAktualny czas
\n";
($sek,$min,$godz,$dzien,$mies,$rok,$dztyg) = localtime;
print "Jest $dni_tyg[$dztyg], $dzien $miesiace[$mies] ";
print 1900+$rok,", godzina $godz:$min:$sek.\n";
print "\n\n";