#!/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/plain\n\n";

($sek,$min,$godz,$dzien,$mies,$rok,$dztyg) = localtime;

print "$dni_tyg[$dztyg], $dzien $miesiace[$mies] ";
print 1900+$rok,", godzina $godz:$min:$sek";