use strict;
use warnings;
use Test::More tests=>4;
my $windows_file = 
     "abc". "\r\n"
    ."def". "\r\n"
    ."ghi". "\r\n"
;
my $in_file = \$windows_file;

my $string;


open my $fh, "<:crlf", $in_file;

$string = <$fh>;
ok( $string eq "abc\n", "line 1" );

$string = <$fh>;
ok( $string eq "def\n", "line 2" );

$string = <$fh>;
ok( $string eq "ghi\n", "line 3" );


ok( eof($fh), "end-of-file");