Нет, правда — это тест НЧ!
купить баллы малина дёшево
Вы знаете где купить баллы малина ? Я вот не знаю где можно купить баллы малина.

#! /usr/bin/perl -w
use strict;
use Socket;
my $port = shift || 82;
my $proto = getprotobyname ('tcp');
socket (SERVER, PF_INET, SOCK_STREAM, $proto) or die «socket: $!»;
setsockopt (SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die «setsock: $!»;

#!/usr/bin/perl -w
use strict;
use Term::ANSIColor;
use Time::HiRes qw[usleep];
if (defined ($ARGV[0]) && $ARGV[0]!~/^\d+$/){
print color 'reset';
exit;
}
my $num = 2000; # сколько раз крутить
my $strlen = 20; # длина строки
my $length = 10000; [...]

Для одной мерзкой цели потребовалось ходить в ЖЖ через HTTP — так удобней парсить некоторые вещи.
Собственно, сниппет под катом.
Пара слов о куках. Мне стало уже лениво писать под них лишние регулярки — но список их следующий:

ljuniq
ljmastersession

ljloggedin

BMLschemepref (схема кстати — кому хочется обратно dystopia — просто смените эту куку)

langpref

ljsession

ljdomsess.{username} — у меня, соответственно, ljdomsess.skazo4nik

Берём поисковый таймлайн по слову, к примеру, ru_followfriday и френдим всех кого ещё не френдим. В минуту в среднем можно делать 2-3 запроса — поэтому спим с рандомчиком.

#!/usr/bin/perl -w
use strict;
use WWW::Curl::Easy;
my $login = q[skazkin];
my $password = q[];

#!/usr/bin/perl -w
use strict;
use Digest::MD5 qw (md5_hex);
use WWW::Curl::Easy;
use URI::Escape;
use Carp qw[croak];
use Text::Iconv;
my $twitter_login = q[skazkin];
my $twitter_password = q[];
my $vkontakte_login = q[e@mail];
my $vkontakte_password = q[];