Spreadsheet::WriteExcel 사용시 한글 sheet명

my $map   = Unicode::Map->new("EUC-KR");
 $sheet_name = $map->to_unicode("한글sheet명");
 $worksheet = $workbook->add_worksheet( $sheet_name, 1 );