Help for this page
$r->print(" "); $r->rflush();
my $r = Apache2::Request->new(); ... open($fh, $file) or die $!; $r->print(<$fh>);