#!/usr/bin/env perl
use strict;
use warnings;

use Text::CSV;

my $fileTable = shift;
my $codepage  = 'utf8';

my $CSV_H = Text::CSV->new (
    {   sep_char         => ";",
        binary           => 1,
        blank_is_undef   => 1,
        empty_is_undef   => 1,
        allow_whitespace => 0,
        quote_char       => undef
    }
);

if (open my $TBL_H, "<:encoding($codepage)", $fileTable) {
    while (my $row = $CSV_H->getline ($TBL_H)) { }
    $CSV_H->eof or $CSV_H->error_diag ();
    close $TBL_H;
}