Добавлено (23 Фев 2007, 3.21.11 Am)
---------------------------------------------
ЗЫЫ:
вот на перле тестовый скриптик по работе с сокетами:

Code

#!usr/bin/perl use IO::Socket; $host="www.yandex.ru";   $getstring="http://www.yandex.ru/yandsearch?stype=www&nl=0&text=%CF%EE+%F7%B8%EC+%EE%EF%E8%F3%EC+%E4%EB%FF+%ED%E0%F0%EE%E4%E0"; $sock = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "80") || die "[-]Connect Failed\r\n"; print $sock "GET $getstring HTTP/1.1\n"; print $sock "Host: www.yandex.ru\n"; print $sock "Accept: */*\n"; print $sock "Connection: close\n\n"; my $buf=""; while($line = <$sock>) {      $buf.=$line; } close($sock); print "$buf";