Select Code to Download

#!/usr/bin/perl

...
    die("Error parsing CSV file '$file': ", $csv->error_diag, "\n")
        if $csv->error_diag and not $csv->eof;
}