教えてください。
Perl for Win32 Build 316(v5.003_07?)から、ActivePerl v5.8.0に乗り換えたのですが、
処理の仕方が変わったようで困っています。

時間のかかる処理をするときに、プログレスバーのようなものを表示していたのですが、
ActivePerl v5.8.0では、最後にまとめて表示されるようになってしまいました。
プログレスバーを表示させる、うまい手はないでしょうか？
よろしくお願いします。

for ($i=0 ; $i<5000 ; $i++) {
if ($i%100 == 0) { print "*"; }
for ($j=0 ; $j<1000 ; $j++) {}
}