Select Code to Download

IO::Handle->format_line_break_characters( [STR] ) $:
IO::Handle->input_record_separator( [STR] )       $/

IO::Handle->input_record_separator( ["\r"] );

#!/usr/local/bin/perl
use strict;
...
my $columns = $csv->getline($io);
print Data::Dumper->Dump([$columns],['csv']);
exit 0;

cat mac.txt | perl -e '$/="\r"; while(<>){$_=~s/\015$/\n/; print $_;}'