$ csv-check -v1 test.ssv --allow-loose-quotes -L
  allow_loose_escapes   : 0
  allow_loose_quotes    : 1
  allow_unquoted_escape : 0
  allow_whitespace      : 0
  always_quote          : 0
  auto_diag             : 1
  binary                : 1
  blank_is_undef        : 0
  callbacks             : (undef)
  decode_utf8           : 1
  diag_verbose          : 0
  empty_is_undef        : 0
  eol                   :
  escape_char           : "
  escape_null           : 1
  formula               : diag
  keep_meta_info        : 1
  quote                 : (undef)
  quote_binary          : 1
  quote_char            : "
  quote_empty           : 0
  quote_space           : 1
  sep                   : (undef)
  sep_char              :
  strict                : 0
  types                 : (undef)
  undef_str             : (undef)
  verbatim              : 0

##</code><code>##

$ csv-check -v1 test.ssv --allow-loose-quotes -X
  allow_loose_quotes    : 1
  auto_diag             : 1
  binary                : 1
  formula               : diag
  keep_meta_info        : 1

##</code><code>##

use Text::CSV_XS; # Text::CSV_XS is much faster that Text::CSV

my $fileTable = shift;

my $CSV_H = Text::CSV_XS->new ({
    sep_char           => ";",
    binary             => 1,
    blank_is_undef     => 1,
    empty_is_undef     => 1,
    allow_whitespace   => 0,
    allow_loose_quotes => 1, # Should work. If not, maybe a bug in Text::CSV
    auto_diag          => 2, # Added
    });