Select Code to Download

open my $entree, "<", $input_file  or die "$input_file: $!";
open my $sortie, ">", $output_file or die "$output_file: $!";
...
    print $sortie "$row->[2]\t$row->[0]\n";
    }
$csv->eof or $csv->error_diag ();