Select Code to Download

open my $fh, "<", $file or die "$file: $!";
# Don't use auto_diag on older Text::CSV_XS
...
    }
$csv->eof () or $csv->error_diag (); # Not needed with auto_diag
close $fh;