my @zeit = localtime(time);
$zeit[4]++; # monat beginnt bei 0 fuer januar
$zeit[5]+=1900; # jahr 0 ist 1900