Select Code to Download

# Use Text::CSV_XS if it's available or the
# slower Pure Perl implementation otherwise.
...
...
my $csv_reader = Text::CSV->new();
...

>perl -e"use Text::CSV_XS"

use Text::CSV_XS;

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