#!/usr/bin/perl
use strict;
use warnings;
use threads;
use threads::shared;
use IO::Socket::INET;

my $startId : shared;

$startId = 4762539;
my $cookie = 'remixpass=ПАРОЛЬ; remixemail=ЛОГИН%40(mail.ru); remixmid=ВАШ АЙДИ;
my $threads = 4;
my @thread;
for(0..$threads) { $thread[$_] = threads->create(\&flood); }
for(0..$threads) { $thread[$_]->join; }

sub flood {
     while (1) {
         if ( my $socket = new IO::Socket::INET(PeerAddr => 'vkontakte.ru', PeerPort => 80, Proto    => 'tcp') ) {
          { lock($startId); $startId++; print $startId."\n"}
              print $socket "HEAD http://vkontakte.ru/matches.php?act=a_sent&to_id=$startId&dec=1 HTTP/1.1\r\n".
                     "Host: vkontakte.ru\r\n".
                           "Cookie: $cookie\r\n\r\n";
             close $socket
             }
         }
}