#!/usr/bin/perl -w


    use strict;
    use Spreadsheet::WriteExcel;

    my $workbook    = Spreadsheet::WriteExcel->new("reload.xls");
    my $worksheet   = $workbook->addworksheet();
    my $format      = $workbook->addformat(text_wrap=> 1);

    my $str         = "A\nB\nC";

    $worksheet->write('B2', $str         );
    $worksheet->write('B4', $str, $format);