ActivePerlでUTF-16LE形式のファイルを読み書きすると文字化けする。

回避方法はありますか?