#!/usr/bin/perl
use strict;
use Text::CSV;
my $outputFile = 'bar.csv';
my $csv = Text::CSV->new ( { binary => 1, eol => "\n" } )
                or die "Cannot use CSV: ".Text::CSV->error_diag ();
open my $fh, ">:encoding(utf-8)", $outputFile
	or die "$outputFile: $!";
$csv->print ($fh, ['Nicolás',123]);
close $fh or die "$outputFile: $!";