This works for me (perl 5.18.2).

use strict;

use Excel::Writer::XLSX;
use utf8;

my $rowCount = 0;
my $colCount = 0;
my $Field = "";

my $workbook = Excel::Writer::XLSX->new('test.xlsx');
my $worksheet = $workbook->add_worksheet();
$worksheet->set_column( 0, 10, 40 );
my $gFmtBold = $workbook->add_format();
$gFmtBold->set_bold();
$gFmtBold->set_size(15);
$gFmtBold->set_color('black');
$gFmtBold->set_align('center');
my $normalFmt = $workbook->add_format();
$normalFmt->set_align('center');

my (@outRecord);

@outRecord = ("Nome do Produto","ID Serviço Vantive","Motivo","Quantid
+ade");

foreach $Field (@outRecord)
{
    $worksheet->set_column($rowCount,$colCount,40);
    $worksheet->write($rowCount,$colCount,$Field,$gFmtBold);
    $colCount++;
}
[download]