my $csv = Text::CSV_XS->new({
     'quote_char'  => '',
     'escape_char' => '',
     'sep_char'    => "\t",
     'binary'      => 1
 });