Select Code to Download

   if($cb) {
    while ($content = &$collector, length $$content) {
...
      }
    }
  }

#! /usr/bin/perl -w
# bloat.cgi
...
print qq{<p class="foobar" align="right" name="$_">$_</p>\n} for( 1 ..
+ 10000 );
print '</body></html>';
__END__

#! /usr/bin/perl -w

...
    print "received </$element> at chunk $chunk\n";
}
__END__

127.0.0.1 - - [15/Oct/2001:10:40:14 +0200] "GET /cgi-bin/bloat.cgi HTT
+P/1.0" 200 527879 "-" "lwp-request/1.39"
127.0.0.1 - - [15/Oct/2001:10:40:18 +0200] "GET /cgi-bin/bloat.cgi HTT
+P/1.0" 200 116807 "-" "libwww-perl/5.53"