use IO::Socket::INET;

use strict;
use warnings;

my $s = IO::Socket::INET->new(Proto=>"tcp", PeerAddr => "www.yahoo.com", PeerPort => 80);
print $s "GET / HTTP/1.1\r\nHost: www.yahoo.com\r\n\r\n";
my $foo;
for (1..5) {
	recv $s, $foo, 15, MSG_PEEK;
	print "========\n";
	print $foo;
	print "\n";
}

##</code><code>##

========
HTTP/1.1 200 OK
========
HTTP/1.1 200 OK
========
HTTP/1.1 200 OK
========
HTTP/1.1 200 OK
========
HTTP/1.1 200 OK