Shell Programming and Scripting

my $workbook = Spreadsheet::WriteExcel->new($FileName);
## Add a worksheet
my $worksheet1 = $workbook->add_worksheet('PERL');
## Define the format and add it to the worksheet
my $format = $workbook->add_format(
#center_across => 1,
bold => 1,
size => 10,
border => 4,
color => 'black',
bg_color => 'cyan',
border_color => 'black',
align => 'vcenter',
);
## Change width for only first column
$worksheet1->set_column(0,0,20);
my $failcolor= $workbook->add_format(
bold => 1,
size => 10,
border => 4,
color => 'red',
border_color => 'black',
align => 'vcenter',
);
 

# Write a formatted and unformatted string, row and column
# notation.
$worksheet1->write(0,0, "PERL FLAVOURS",$format);
$worksheet1->write(1,1,"Active State PERL",$failcolor);
$worksheet1->write(2,0,"Strawberry PERL");
$worksheet1->write(3,0,"Vennila PERL");