#!/usr/local/bin/perl


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

my $workbook=Spreadsheet::WriteExcel->new('excel.xls');
my $worksheet=$workbook->add_worksheet('');

my $var= "biohisham";

my $bold=$workbook->add_format(
                                bold=>1,
                                align=>'center',
                                valign=>'vcenter',
                                size=>   15  #font_size

                                );
my $var_format=$workbook->add_format(
                                      align=>'left',
                                      valign=>'right',
                                      size=>15
                                      );

$worksheet->set_column(0,1,30);
$worksheet->set_row($_, 30) for (1,2);


$worksheet->merge_range('A1:B2',"Example Name:", $bold);
$worksheet->merge_range('A3:B3',"\b$var", $var_format);