#!/usr/bin/perl

use IO::Socket::INET;
use Socket;

$blocksize = 1024*1024;
$count = 100;
$size = $count * $blocksize;
$block = `dd if=/dev/zero bs=$blocksize count=1`;

socket(Server, PF_INET, SOCK_STREAM, 'tcp') || die "socket: $!";
setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack ("l", 1)) || die "setsockopt: $!";
bind(Server, sockaddr_in(6789, INADDR_ANY)) || die "bind: $!";
listen(Server, SOMAXCONN) || die "listen: $!";

$SIG{CHLD} = \&REAPER;
$SIG{PIPE} = 'IGNORE';

client: for (; $paddr = accept(Client, Server); close Client) {
	my ($port, $addr) = sockaddr_in($paddr);
	$addr = inet_ntoa($addr);
	print "Connection from ${addr}:${port}\n";
	while (<Client>) {
		s/[\r\n]+$//;
		if ($_ eq "") {
			print Client <<EOT;
HTTP/1.0 200 OK
Content-Length: $size
Content-Type: text/plain

EOT
			for ($i=0; $i < $count; $i++) {
				 print Client $block;
			}
			print Client "\n";
			next client;
		}
	}
}