my $codepage = 'utf8';
use utf8;
binmode(STDOUT, ":$codepage");
binmode(STDOIN, ":$codepage");

use Text::CSV;

my $fileTable = shift;

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

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;
}