#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
use LWP::Simple;
use HTTP::Cookies;
use LWP::UserAgent;


if(rand(6)>3)
{
    my $ua = LWP::UserAgent->new;
    $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.8) Gecko/20100722 MRA 5.6 (build 03402) Firefox/3.6.8");
    $ua->default_header('Referer'=>'****');
    $ua->cookie_jar({});

    my $res = $ua->get('****');
    $res->decoded_content=~/kodun(.*)value="(.*)">/;
    $kodun=$2;
    $res=$ua->post('*****',
    [
        'username'=>'***',
        'password'=>'***',
        'kodun'=>$kodun
    ]
    );

    $res=$ua->post('****',
    [
        'add_post'=>'****',
        'message'=>'***'
    ]
    );


} else {print "neok";}