Okay, wenn man natürlich die Variablen immer in den Parametern als Referenzen übergibt und mit Returnwerten arbeitet, kann man dies umgehen.

Dies denke ich fördert die Portierbarkeit der Funktionen und statt globalen Variablen hat man dieselben einfach in einer "Steuerfunktion" - in deinem Fall wäre dies start() mit der Variable $today.

Mh, müsste mal schauen ob ich meine zukünftigen Scripts nicht auch eher auf diese Art schreiben sollte.. danke für die illuminierung.

//Edit: danke für die zusätzliche Erläuterung strat. Ich denke die Freiheit von Perl lässt einen solche Schnellschüsse produzieren. Seit ich mich an ein paar Regeln halte aus "Perl Best Practices" wirds jedoch immer etwas besser :).