Ich kenn den "+>" bei open nicht wirklich, aber auch ohne den genau zu kennen find ich manche Sachen recht komisch

* Wie soll Perl bei dem print denn wissen, dass das ins IN soll und nicht nach STDOUT?
* print "" wird wohl nichts löschen, sondern bestenfalls leer setzen
* Glaub ich eh nicht wirklich, dass die Methode so funktionieren kann

Vielleicht kann der +> wirklich was furchtbar magisches. Ansonsten würd ich mir mal Tie::File anschaun.