use strict;
use warnings;
use Test::More tests=>1;

my $file = \do{
    "This \n is not the end of a line on windows\r\n"
};

open my $fh1, '<:raw', $file;
my $chars_read = length(<$fh1>);
close $fh1;

my $chars_expected=47;

is( $chars_read, $chars_expected, 'record length' );