> use IO::Handle > > > my $socket; > > socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp')); > > connect($socket, sockaddr_in(80, inet_aton("127.0.0.1"))); > $socket->autoflush(1) > > print $socket "GET / HTTP/1.0\n\n"; > > print while(<$socket>); > > > > почему-то висит и ответа сервера не печатает > > Потому что данные из буфера не уходят в сокет. а вот оно в чем дело, спасибо большое!
-- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]