my $parser = Parse::CSV->new( file => $file )
  or die Parse::CSV->errstr;