perl格式求助

各位好，我刚开始学习perl，在进行格式定义的时候，我想使用哈希的方法定义我新建的Excel表格的格式，但是试了几次都没有成功，不知道错在哪里，下面我把代码拷贝过来，请高手指点一下哈～，刚开始学习，可能会犯一些低级错误，还请大家不吝赐教啊^_^

#!/usr/bin/perl -w
use strict;
use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new('d:\lx\filename4.xls');
  die "Problems creating new Excel file: $!" unless defined $workbook;
my $worksheet1 = $workbook->add_worksheet('lc');           
my $worksheet2 = $workbook->add_worksheet("\x{263a}");#表情符
my %font=(font=>'Arial',
       size=>12,
       color=>'blue',
       bold=>1,
       );
     $worksheet1->write_string('A1','HELLO');
my %shading=(
      bg_color=>'green',
      pattern=>1,
      );
my $format=$workbook->add_format(%font);

难道是我问题没描述清楚么，怎么没人理啊，自己先顶一个吧_