my @date = localtime(time);
$date[4]++; # monat januar ist 0, soll aber 1 werden
$date[5] += 1900; # jahr beginnt bei 1900, also 1900 dazuzaehlen: 105 => 2005