#!/usr/bin/perl -w

    use strict;
    use Spreadsheet::WriteExcel;


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

    my $format    = $workbook->addformat(
                                            border   => 1,
                                            color    => 'blue',
                                            merge    => 1,
                                            rotation => 1,
                                        );

    $worksheet->write('B2', 'Hello', $format);
    $worksheet->write('C2', '',      $format);
    $worksheet->write('D2', '',      $format);