Hallo Linuxer,
Danke für die Bemerkungen. Ich habe warnings nicht eingeschaltet. Ich habe es nun eingeschaltet und tatsächlich ein paar Warungen erhalten, u.a. "unless use of a constant in void context at ...". Ich vermute, dass Du dieses meinst. Dein Vorschlag habe ich übernommen und es funktioniert. Ich habe auch print $OUPUT $rec,"\n" versucht und das klappt auch, d.h. es gibt mir dasselbe Resultat.
Den Code mit \r hatte ich mal (mithilfe von kompetenten Leute) geschrieben, weil ich irgendwelche DOS-\r\n-Probleme hatte. Das war schon lange her und beim übernehmen des Codes habe ich vermutlich neue Anpassungen durchgeführt.
Auf jedenfall, besten Dank
giordano.