open my $entree, "<", $input_file  or die "$input_file: $!";
open my $sortie, ">", $output_file or die "$output_file: $!";

my $csv_reader = Text::CSV->new ({ binary => 1 });
while (my $row = $csv->getline ($entree)) {
    print $sortie "$row->[2]\t$row->[0]\n";
    }
$csv->eof or $csv->error_diag ();