Select Code to Download

use strict; 
use warnings;

 use Text::CSV;

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