# 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();
...

##</code><code>##

>perl -e"use Text::CSV_XS"

##</code><code>##

use Text::CSV_XS;

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