CQPerl で Rational ClearQuest API を利用した場合に The following characters are invalid で強制終了してしまう

Windows 上で CQPerl を使って Rational ClearQuest の自動クエリーなどのスクリプトを書いた場合に、以下のエラーでスクリプトが強制終了して困っていた。

String returned from the CQPerl is not in the local code page, "932 (Japanese (Shift-JIS))".
The string is "(略)" (98 characters in total).
The following characters are invalid:
U+2013 at 14

http://www-01.ibm.com/support/docview.wss?uid=swg21266293

上にサポート記事があるが、スクリプト側での対象方法が明確でない。試行錯誤して以下のコードで回避できた。

my $cq = CQClearQuest::Build();
$cq->SetPerlReturnStringMode($CQPerlExt::CQ_RETURN_STRING_UNICODE);

http://publib.boulder.ibm.com/infocenter/cqhelp/v7r0m1/index.jsp?topic=/com.ibm.rational.clearquest.apiref.doc/c_execution_mode.htm