#!/usr/bin/perl
use strict;
use Devel::Peek;

open my $FH, "<:raw", "./test2.csv" 
  or die "./test.csv $!";
my $line = <$FH>;
Dump $line;