#!/usr/bin/perl use HTTP::Request; use LWP::UserAgent; use HTTP::Headers; use strict; my $URL = "http://top100.rambler.ru/cgi-bin/set_title.cgi"; my $ua = LWP::UserAgent->new; push @{ $ua->requests_redirectable }, 'POST'; my $resp = $ua->post($URL, Content => { 'id' => '3031414', 'code' => 'e8100d22ddb1d85c0953feee823feeb5', 'announce' => 'Новый анонс в кодировке koi8-r', 'announce_url => 'http://mysite.ru/news/daily_report.html', } ); my $status = "unknown error"; if($resp->is_success && $resp->content =~ m/status\s+(.*)$/) { $status = $1; } ($status eq "ok") ? print "Анонс успешно изменен.\n" : print "Ошибка при изменении анонса: $status.\n";