open my $fh, "<", "file.csv" or die "$!";
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
$csv->header ($fh, { bom => 1, set_column_names => 0 });
while (my $row = $csv->getline ($fh)) {
    # ...
    }