> 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>);
> >
> > почему-то висит и ответа сервера не печатает
>
> Потому что данные из буфера не уходят в сокет.
а вот оно в чем дело, спасибо большое!