#!/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);
}