use strict; 
use warnings;

##</code><code>##

 use Text::CSV;

 my $csv = Text::CSV->new ( { binary => 1 } )  # should set binary attribute.
                 or die "Cannot use CSV: ".Text::CSV->error_diag ();