# Use Text::CSV_XS if it's available or the
# slower Pure Perl implementation otherwise.
use Text::CSV 1.000;

...
my $csv_reader = Text::CSV->new();
...