#!/usr/bin/perl -w
use strict;

use Text::CSV;

my $csv=Text::CSV->new();
my $line;
my $status;
my $bad;
my $filename;

while($filename = shift @ARGV) {
        open F, $filename or die "opening filename: $!\n";

        while($line=<F>) {
                $status=$csv->parse($line);
                if($status ==0) {
                        chomp($bad = $csv->error_input());
                        print "error: $filename($.):\n$bad\n";
                }
        }
        close F or die "closing $filename: $!";
}
[download]