No such thing as a small change | |
PerlMonks |
Re: IO::Socket, Multiple GET.by jhourcle (Prior) |
on Jul 02, 2009 at 14:26 UTC ( [id://776760]=note: print w/replies, xml ) | Need Help?? |
$msg = "GET /engine3.php?req_sale=5205&page=1\r\n"; You're sending HTTP/0.9, which doesn't have provisions for persistent connections, and the server will always disconnect you. You need to either send an HTTP/1.1 request, or HTTP/1.0 with the appropriate headers ... and for that, I'd do as poolpi and our anonymous friend have already mentioned, and use LWP::UserAgent (search the instructions for 'keep_alive' ).
In Section
Seekers of Perl Wisdom
|
|