如何从MSSQL Server nvarchar列中使用Spreadsheet :: WriteExcel输出欧元符号

my $euro = chr 0x20AC;
$worksheet->write($currentline, $currentcolumn, \"Some text here\".$euro ,$format);

Win32::OLE->new(\"ADODB.Recordset\");

use Encode \'decode\';

my $string = \'some string with koi8-r characters\';
   $string = decode(\'koi8-r\', $string);

$worksheet->write(\'A1\',  $string);