my $wb = Spreadsheet::WriteExcel->new('tmp.xls');
my $format = $wb->add_format();
$format->set_text_wrap() ;
my $ws = $wb->add_worksheet();
$ws->write(0, 0, "This is\na multiline cell", $format);
$wb->close();