package Book::UnBuffered;
use Apache::Constants qw(:common);
local $|=1; # Switch off buffering.
sub handler {
my $r = shift;
$r->send_http_header('text/html');
print "\n";
print "\n";
print " \n";
print " \n";
print " Test page\n";
print " \n";
print " \n";
print " \n";
print " \n";
print " Test page \n";
print "
\n";
print " foo\n" for 1..100;
print "
\n";
print " \n";
print "\n";
return OK;
}
1;