Здравствуйте. Я в перле новичок, так что сильно не пинайте, если глупость спрошу :)
Чтение данных с сокета происходит, но как-то очень медленно -
гораздо медленнее, чем я, скажем, введу этот адрес в браузере и дождусь загрузки странички.
Почему так происходит? Вот кусок кода:
...
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
print "connecting to $host ... ";
connect(SOCK, $paddr);
print "OK\n";
print "sending GET to /dollar-$mth-$nyear.html ... ";
send (SOCK, "GET /dollar-$mth-$nyear.html HTTP/1.1\nHost: $host\n\n", 0);
print "OK\n";
my @data = <SOCK>;
...