use strict;
use IO::Socket;

my $server = IO::Socket::INET->new(Proto => "tcp",
                                   PeerPort => 80,
                                   PeerAddr => "www.yahoo.com",
                                   Timeout => 2000)
             || die "failed to connect\n";
my $req = "GET / HTTP/1.1\r\nHost: www.yahoo.com\r\n\r\n";
print $server $req;
my $count = 0;
while (1) {
    my $req;
    #$server->recv($req, 700000);
    read($server, $req, 700000);
    #sysread($server, $req, 700000);
    print "packet rcvd:\n", substr($req, 0, 20), "\n";
    print "packet count = ", ++ $count, "\n";
    exit if ($req eq "");
}