#!/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";
�� �������� �.�

�����������

����� ��������
����������������
  �������                                                                                                                        I ������� ������������ ������
���, SPS, �����, ����, ���� � �����, ����������������, ���� ���, ���� rehau, rehau � �����, ����� � �����, ����������� ����, �����, REHAU, �������, ������, ����������, ����, ROTO, �������� �������, ������� �����, �������� �����, ����� ���, ����� ���, �������������� �����, ���������� �����, ������, ����������, ��������, ���� ������, ��������, ���������, ���������� �������, ������� ������, ������� �����������, ������ ����, ������� �������, ���������� ��������, ���������, slidops, sib, brillant, delight, provedal, �����������, ����������, ���������, ��������, ��������
���� �� ������� REHAU. ���������� ��������, ������, ������� ������, ������� �����������, ����������� � ����������� ���������� �������, �������� �������
�������� ������� ������� ���� ���, �������� ��������� ���������� ������ REHAU. ����������� �� ���������� ��������, ������, ��������� ������� �����, ������� �����������, ����������� � ����������� ���������� ������, �������� ��������. ����������� ����� �����. ����� �������� ���������� �� ������ � ��������� ����������� ����.