#!/usr/bin/perl

$|=1;

print "Content-Type: application/octet-stream\n";
print "Content-Length: 10000\n";
print "\n";

for (1..10000) {
   print('a');
   sleep(1);
}

##</code><code>##

#!/usr/bin/perl

print "Content-Type: application/octet-stream\n";
print "Content-Length: 100000\n";
print "\n";

for (1..20) {
   print('a' x 5000);
   sleep(10);
}