in reply to CR+LF

binmode STDOUT (or whatever file)

In Section Seekers of Perl Wisdom