Select Code to Download

... open $fh ...
$csv = Text::CSV_PP->new();           # create a new CSV parser object
...
while (defined($col = $csv->getline($fh))) {
  ...
}