my $csv = Text::CSV_XS->new({
     'quote_char'  => "'",
     'sep_char'    => '|',
});