#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use IO::All;

io(shift)->read(my $chunk, 10);

print Dumper(unpack("C*", $chunk));

for(unpack("C*", $chunk)){print chr()}

$chunk =~ m/(\n|\r\n)/g;

print unpack("C*", $1);

__END__

$ ./recsep.pl dos.csv
$VAR1 = 102;
$VAR2 = 111;
$VAR3 = 111;
$VAR4 = 59;
$VAR5 = 98;
$VAR6 = 97;
$VAR7 = 114;
$VAR8 = 13;
$VAR9 = 10;
foo;bar
1310

$ ./recsep.pl unix.csv
$VAR1 = 102;
$VAR2 = 111;
$VAR3 = 111;
$VAR4 = 59;
$VAR5 = 98;
$VAR6 = 97;
$VAR7 = 114;
$VAR8 = 10;
$VAR9 = 10;
foo;bar

10