sub zeit {
my $wtag = ("Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag")[(localtime)[6]];
my $mtag = sprintf("%02d", (localtime)[3]);
my $monat = ("Januar"," Februar", "Maerz", "April"," Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")[(localtime)[4]];
my $jahr = (localtime)[5] + 1900;
my $stunde = sprintf("%02d", (localtime)[2]);
my $min = sprintf("%02d", (localtime)[1]);
my $zeit = "$wtag, den $mtag\. $monat $jahr um $stunde\:$min Uhr";
return $zeit;
}