Select Code to Download

while (my $line = $csv->getline ($FH)) {
    if ($csv->parse (@$line)) {    
...
=>
while (my $line = $csv->getline ($FH)) {
    my @field = @$line;