#!/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 

##</code><code>##

Desktop>csvtest.pl testcsv.csv
FileHandle=GLOB(0x1e9c20)
Can't call method "getline" on an undefined value at D:\Desktop\csvtest.pl line 16.

##</code><code>##

Importance,Company,Department,"Job Title"