[MacPerl] Edit Postscript file

[Beat Pfister]

Hello

I tried to edit postscript files with perl, but no I reconiced that perl
changes the line ending charackters even if I only open the file and save it
in a new file. Every "\n" is changed to an "\r", with this changes the
postscript file can no logner be interpreted by a printer.

That's the code I use:

  undef $/;                                                #Zeilenende
undef, Datei nicht Zeilenweise bearbeiten

  open(NEU, "> $neu")                           or die "Fehler beim öffnen
der Datei: $neu $!";
  open(PS, "$psname")                         or die "Fehler beim öffnen der
Datei: $psname $!";

  while (<PS>) {
   print NEU $_;
   }

  close(PS)            or die "Kann $psname nicht schliessen: $!  ";
  close(NEU)           or die "Kann $neu nicht schliessen: $!  ";


System enviroment:
QuarkXpress 4.11
Mac OS 9.04
LaserWriter 8.51
print spooler Helios EtherShare 2.5 on a Sun
Perl 5.2.0r4

What would be causing this?

Thanks in advance for help.

Beat Pfister