PerlProfi:
Vor while(<...>) fehlt ein local($_);

(Ist zwar in diesem Falle egal, aber sobald der Code mal in eine anonyme foreach-Schleife oder aehnliches eingebettet wird, gibt's sonst Aerger...)

Ach ja, und bei print und close sollte man auch noch die Fehler abfangen, denn die Festplatte (o. ä.) koennte ja voll sein.\n\n

<!--EDIT|betterworld|1174232724-->