Select Code to Download

$csv->error_diag()

  $status = $csv->parse($line); 

...
  @col = $csv->fields();
  print Dumper \@col;

"fred1234","bedrock quary","S","t","88579Y101","4851","2595708","US885
+79Y1010","MMM","3M CO","USD","USD","SB7",1,19610718,19610718,225212,"
+MMM UN","MMM.N","",1,"C",710.964086349999,710.964086349999,710.964086
+35,,,2.45938,,,,"R" ~~
...
        ];
--new line--

#! perl -w

...
print "--new line--\n";
}  #while