#! perl -w

use strict;
use warnings;
use 5.014;
use Spreadsheet::WriteExcel;

my $workbook=Spreadsheet::WriteExcel->new('perl1.xls');
my $worksheet=$workbook->add_worksheet();
my $red_background=$workbook ->add_format(
color => 'white',
big_color => 'red',
bold => 1,
);
$worksheet->write(0,0,'colored cell',$red_background);