#!/usr/bin/perl

use v5.10 ;
use strict;
use warnings ;
use Text::CSV ;
use FileHandle ;

my $csv = Text::CSV->new((binary => 1)) ;
my $fh = new FileHandle ;
open($fh, "<", $ARGV[0])
    or die "Can't open $ARGV[0]: $!\n" ;

say $fh ;

my $row = $csv->getline($fh) ;

exit