perl: Nachbesserung am Template