Http запрос.

[Сергей WDX]

Хочу чтоб скрипт посылал запрос к yandex и выдавал результат поиска yandex.
Пишет ошибку
malformed header from script. Bad header=На этот раз Вас постигла неуда: /home/cgi-bin/ya.cgi
Подскажите в чем загвостка.
(Я так понимаю они отдают gzipленный контент ?)
________________________________________________
#!/usr/local/bin/perl -w
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req =
new HTTP::Request POST => \'http://www.yandex.ru/yandsearch\';
$req->content_type(\'application/x-www-form-urlencoded\');
$req->content(\'?rpt=rad&text=1\');
my $res = $ua->request($req);
if ($res->is_success)
 {
  print $res->content;
 } else { print "На этот раз Вас постигла неудача\\n"; }                    
________________________________________________

[Меняздесьдавнонет]

Сергей WDX
Они ничего не отдают.
Таких любителей халявы яндекс банит быстро и без вопросов.
И правильно делает.

[Сергей WDX]

RomikChef
А в чем собственно халява?
Yandex взят как пример.
Может кто-нибудь подскажет из-за чего ошибка.
или ссылку на документацию.

[Меняздесьдавнонет]

Не стройте из себя невинную девочку.
Яндекс - и так бесплатный сервис, и за это он хочет совсем немного - пару беннеров и чтобы юзер знал, что нашел он информацию благодаря яндексу.
А когда какой-то безымягнный Сергей присваивает себе результат работы яндекса, не прилагая никаких усилий хочет иметь такой же есрвис - это и называется "поиметь на халяву". И яндексом жестко пресекается.

[Сергей WDX]

RomikChef  Yandex был  взят как пример !!!
И никто не хотел присваивать себе работу яндексу.
Если там стоит защита от этого я очень рад.

Кто - нибудь может сказать посуществу.

[NeoNox]

Я могу - измени с POST na GET my $req =
new HTTP::Request POST => \'http://www.yandex.ru/yandsearch\';
и посмотри что получится. Далее сам разберешся?

[Chs]

Ну и про Content-type что-нибудь неплохо бы добавить перед выводом страницы.