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