Select Code to Download

use Types::Standard -types;

...
while (my $row = $csv->get_line($fh)) {
   $row_check->($row) or die $row_type->get_message($row);
}