#use 5.18.2;
use warnings;
use Benchmark qw( cmpthese );
use Text::CSV_PP;
use Text::CSV_XS;

my ($fh, $csv);
sub fh  { open $fh, "<", "Proj20101111.csv"; }
sub cxs { $csv = Text::CSV_XS->new ({ binary => 1, sep_char => "|" }) }
sub cpp { $csv = Text::CSV_PP->new ({ binary => 1, sep_char => "|" }) }

cmpthese (4, {
    perl => sub { fh;      while (my @row = split /\|/ => <$fh>) {} },
    c_xs => sub { fh; cxs; while (my $row = $csv->getline ($fh)) {} },
    c_pp => sub { fh; cpp; while (my $row = $csv->getline ($fh)) {} },
    cbxs => sub { fh; cxs; $csv->bind_columns (\my($a,$b,$c,$d,$e,$f));
                           while (          $csv->getline ($fh)) {} },
    });
	
	close($fh);