my $month = sprintf("%02d",(localtime(time))[4] + 1);
localtime liefert die Information über den Monat (siehe perldoc -f localtime) +1 muss man machen, weil die Monate bei 0 anfangen sprintf wird benötigt, um die 2-Zahlen-Darstellung zu erreichen. Wenn Monat kleiner als 10, dann wird eine führende 0 hinzugefügt, ansonsten nicht...