#!usr/bin/perl

use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({ binary => 1, eol => $/, auto_diag => 0 });
open my $fh, "<", $ARGV[0] or die "$ARGV[0]: $!\n";

while (1) {
	my $row = $csv->getline ($fh) or last;
}

##</code><code>##

while (my $fields = $csv->getline( $fh )) {  entry = $fields->[2];}