如何使用Merge_range函数使用Spreadsheet :: WriteExcel合并单元格？

#!/usr/bin/perl

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

# 创建一个新的Excel工作簿
my $workbook = Spreadsheet::WriteExcel->new('merge_range.xls');

# 添加一个工作表
my $worksheet = $workbook->add_worksheet();

# 合并单元格
$worksheet->merge_range('B2:C3', 'Hello, World!', 'merge_range_format');

# 定义合并单元格的格式
my $merge_range_format = $workbook->add_format();
$merge_range_format->set_bg_color('green');
$merge_range_format->set_bold();
$merge_range_format->set_align('center');

# 写入数据
$worksheet->write('A1', 'Not Merged');
$worksheet->write('B1', 'Merged', $merge_range_format);

# 关闭工作簿
$workbook->close();