Select Code to Download

open my $fh, "<", $csv_filename or die "Cannot open file \"$csv_filena
+me\": $!\n";

...
    }
$csv->eof or $csv->error_diag ();
close $fh or die "Cannot open file \"$csv_filename\": $!\n";