use v5.16;
use Encode;
use strict;
use LWP;
my $title = "							­­­­­­­­­­­­­­­­­­­­­­";
my $link= "http://peka.cc";
my $homeboard = "2ch.hk";
my $lwp = new LWP::UserAgent;
$lwp->agent("Mozilla/5.0 (Windows NT 6.2; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/29.0.1547.62 Safari/537.36");
$lwp->default_header("Referer" => "http://1chan.ru/news/add/");
my @pasta = map {
s/^\s*|\s*$//g; $_
} split /^\-+/ms, $lwp->get("http://pastebin.com/raw.php?i=VaK4kGvW")->content;
while(1)
{
my $text = $pasta[rand @pasta];
my $res = $lwp->post(
"http://1chan.ru/news/add/",
Content_Type => "application/x-www-form-urlencoded; charset=UTF-8",
Content => "link=$link&title=$title&text=$text&homeboard=$homeboard",
);
my($error) = $res->content =~ m~"blog_form_error">(.*?)</div>~;
if($error) {
say encode("cp866", decode("utf-8", "Ошибка: $error"))
} else {
say encode("cp866", decode("utf-8", "Сообщение отправлено."))
}
sleep 60;
}