Datum verändern

[petz]

Hallo

Ich versuche Dateinamen aufgrund eines Datums zu erzeugen. Konkret möchte ich, wenn das aktuelle Datum ein Erster eines Monats ist, dass eine Datei einen Namensabhängegen Zusatz im Namen erhält. D.h. am 1.12.04 soll die Datei file.html
umbenannt werden in file1104.html. Dazu habe ich folgendes Skriptlein gebastelt:

...

my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
$Monat+=1;
$Jahrestag+=1;
$Jahr-=100;
$Monatstag1 = $Monatstag; #monatstag einstellig
$Jahr1 = $Jahr;    #jahr einstellig
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Jahr = $Jahr < 10 ? $Jahr = "0".$Jahr : $Jahr;
$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;

#Prüfen, ob bereits ein File besteht
if (-e "file.html") {
 #Am ersten des Monats, bestehende Auswertung umbenennen und Eintrag in history-File vornehmen
 if ($Monatstag == 1) {
  if ($Monat1 == 1) {
   $Vormonat = 12;
   $Jahr -= 1;
  }
  else{
   $Vormonat -= $Monat1;
   $Vormonat = $Vormonat < 10 ? $Vormonat = "0".$Vormonat : $Vormonat;
  }

rename("file.html","file".$Vormonat.$Jahr.".html");
  open(HISTORY, ">>hist");
  print(HISTORY "<br><a href="file".$Vormonat.$Jahr.".html">Statistik ".$Vormonat."/".$Jahr."</a>");
  close(HISTORY)
 }
}

Leider entspricht hier der Vormonat nicht (bezogen auf 1.12.) 11, sondern 00. Sieht wer von Euch direkt das Problem?

Danke für Eure Hinweise

Grüsse