Na, funktioniert es denn? So auf anhieb fehlen mir da nur die Kommentare, warum du formatierst (wenn jemand deinen Quellcode liest hat er nicht deine Ideen oder eine zu bearbeitende Datei im Kopf).

Eventuell bringt es dir was, wenn du dir den Befehl sprintf anschaust (der steht auch in der perlfunc manpage bei localtime).