# Ermittlung des heutigen Datums:
@monate = qw(Januar Februar März April Mai Juni Juli August September Oktober November Dezember);
@tage = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
$allesekunden = time;
$Programm_Start = $allesekunden;
($sek,$min,$stu,$tag,$mon,$jahr,$wtag,$jtag) = localtime($allesekunden);
#$jtag += 1;
$wtag = $tage[$wtag];
$mon = $monate[$mon];
$jahr = $jahr + 1900;
if($sek<10){$sek = "0$sek";}
if($min<10){$min = "0$min;"}
$datum = "$wtag, $tag. $mon $jahr, um $stu:$min:$sek Uhr";


$heute = $jtag + $jahr * 365;					# gibt für 7.8.99: 729853

#693500 ist Tage seit 0-1900
#36353 ist 99 Jahre und x TAge
#39420 ist 99*365