>>794 非mod_perlでは動作している為、大丈夫だとは思います。

とりあえず下記の内容で上手く行きました。
バッファリングは生かし、特定タイミングで
解放する様に $|=0 のままで、
my $r = shift;
print "A";
　$r->rflush;
　sleep 3;
print "B";

ありがとうございました。