どなたか以下の症状に遭遇した方いませんか。
WinXP+ActivePerl5.8.6で下のコードを実行するとperlが異常終了してしまいます。

use threads;
use encoding "euc-jp";
$th = threads->new(sub {print "thread: end.\n"});
$th->join;
print "main: end.\n";

use encodingの行をコメントアウトするとちゃんと動きます。
だれか助けて