The Text::CSV documentation says in part:

new

(Class method) Returns a new instance of class Text::CSV. The attributes are described by the (optional) hash ref \%attr

So your $csv construction line should be:

my $csv = Text::CSV->new({binary => 1}) ;
[download]

Note the currly braces {} instead of the parenthesis () as the argument to new.