#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;

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

    my $heading    = $workbook->addformat(bold => 1);


    $worksheet->write('A1', 'This is bold', $heading);
    $worksheet->write('B1', 'This is not'           );