my $data = <<EOF;
first
second
EOF

##</code><code>##

use strict;
use warnings;

open (my $out, '>', "test_endings.txt") or die "$!";
print $out "first\n";
print $out "second\n";
close $out;

open (my $in, '<', "test_endings.txt") or die "$!";
binmode $in;
my $num_bytes = read ($in, my $buf, 20000);
print "bytes read = $num_bytes\n";

## prints 15  The <CR>'s are there in bin mode