Remove carridge return but not line feed

[SoundsGood]

I am passing a Java object out of an applet via ObjectOutputStream to a perl cgi script, which then takes the object and writes it to a file.. Well that's what it should do.

The perl is adding a random 0d carridge return where there is a line-feed. So instead of it writing 0A it writes 0D 0A.

This is my script:

#!\Perl64\bin\perl.exe

open OUTPUT, ">/Program Files (x86)/Apache Software Foundation/Apache2.2/htdocs/test.data";

while(<STDIN>)
{
print OUTPUT "$_";
}
close OUTPUT;

I've tried adding chomp($_) and chop($_) but these just remove both the new line and the carriage return..

 

[SoundsGood]

Fixed.. the line required was:

binmode OUTPUT;

Before it was treating it as text and for some reason Windows adds a cartridge return after a new-line character where as Java or Unix don't.