#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV_XS;
use Data::Dumper;
use IO::File;

my $fh = IO::File->new;
$fh->open( "<test.csv" ) or die $!;

my $c = Text::CSV_XS->new( { binary => 1, csv_eol => "\015" }  );

my $d = $c->getline( $fh );

print Dumper( $d );

##</code><code>##

foo,bar,baz^Mred,green,blue^Mnarf,blatz,quux