Perl 5.8 use for default the DISCIPLINE :crlf on sockets too! How can I disable this?!!!!

I tried two things to fix, but nothing:
   use open (IN  => ":raw", OUT => ":raw") ;
and:
   binmode($sock, ":raw");

Anyone know how to disable the crlf of Perl 5.8? CRLF make any "\n" to be converted to "\012\015" ("\r\n"). But I'm using the socket to send binary data, and they come with erro if the CRLF are on!!!!