### ----------------------------------------------------
### -- Text::CSV
### -- Licenses: Artistic-2.0
### -- Authors: H.Merijn Brand (Tux)
### -- File: csv-test-xs.pl
### ----------------------------------------------------
#!/usr/bin/perl

use strict;
use warnings;

use Text::CSV_XS;

my @rows;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 } )
    or die "Cannot use CSV: ", Text::CSV->error_diag ();

my $sum = 0;
while (my $row = $csv->getline (*ARGV)) {
    $sum += scalar @$row;
    }
print "$sum\n";


