[code]
#!/usr/bin/perl
use strict;
use Time::Local;
use CGI::Carp qw(fatalsToBrowser);
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
$Monat = $Monat+1;
$Jahrestag+=1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
my $Jahr = $Jahr+1900;
my @Wochentag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my @Monatsname = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
my @Monatstage = ("31","28","31","30","31","30","31","31","30","31","30","31");
print "Content-type: text/html\n\n";
print '', "\n\n";
print "\n\n\ntest\n";
print "\n\n\n\n";
print "\n";
print "| Stunden | Minuten | Sekunden | Monatstag | Monat | Jahr | Wochentag | Jahrestag | Sommerzeit |
\n";
($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(0);
print "| $Stunden | $Minuten | $Sekunden | $Monatstag | $Monat | $Jahr | $Wochentag | $Jahrestag | $Sommerzeit |
\n";